'СОРС ЗА ФОРМАТА

'При кликане върху бутона - ИЗБОР И КОПИРАНЕ НА ФАЙЛ

Private Sub Command1_Click()

On Error GoTo dolu ' Манипулатор на грешка

FileCopy IzbranFile, ImeZaZapis ' Реално копиране на файла

Exit Sub 'Изход от процедурата при нормално протекъл процес

'Съобщение при грешка

dolu: MsgBox "Не сте избрали файл за копиране или съществува файл с такова име!", vbInformation, "Прекратена операция за копиране"

End Sub

'При кликане върху бутона - ИЗБОР И КОПИРАНЕ НА ФАЙЛ

Private Sub Command2_Click()

On Error GoTo dolu ' Манипулатор на грешка

Kill IzbranFileZaDel ' Реално изтриване на файла

' Съобщение

MsgBox "Файлът е изтрит", vbInformation, "Изпълнена операция изтриване операция"

Exit Sub 'Изход от процедурата при нормално протекъл процес

'Съобщение при грешка

dolu: MsgBox "Не сте избрали файл за изтриване", vbCritical, "Прекратена операция"

End Sub

' СОРС ЗА МОДУЛА Izbor

Public KratkoIme

' Функция за избор на файл за копиране

Public Function IzbranFile()

KratkoIme = ""

Set objDialog = CreateObject("MSComDlg.CommonDialog")

objDialog.dialogTitle = "Избери файла, който искаш да копираш"

objDialog.ShowOpen

If Len(objDialog.FileName) > 1 Then

IzbranFile = objDialog.FileName

Cherta = InStr(StrReverse(IzbranFile), "\") - 1

KratkoIme = Right(IzbranFile, Cherta)

End If

End Function

' Функция за избор на място за запис на файла при записване

Public Function ImeZaZapis()

If KratkoIme = "" Then GoTo dolu

Set IzborZaZapis = CreateObject("MSComDlg.CommonDialog")

IzborZaZapis.dialogTitle = "Копирай като"

IzborZaZapis.FileName = KratkoIme

IzborZaZapis.ShowSave

ImeZaZapis = IzborZaZapis.FileName

dolu:

End Function

' Функция за избор на файл за изтриване

Public Function IzbranFileZaDel()

Set objDialog = CreateObject("MSComDlg.CommonDialog")

objDialog.dialogTitle = "Избери файла, който искаш да бъде изтрит"

objDialog.ShowOpen

If Len(objDialog.FileName) > 1 Then

IzbranFileZaDel = objDialog.FileName

End If

End Function