| MkDir, FileCopy, Kill |
| |
| |
| Const Desktoppfad = "C:\Windows\Desktop\" | |
| Const Backuppfad = "C:\DBackup" | |
| |
| Private Sub cmdDateienverschieben_Click() | |
| On Error GoTo errDateienverschieben | |
| Dim n As Long, Dateiname As String | |
| MkDir Backuppfad | Erzeugt Verzeichnis. |
| For n = 0 To lstDesktopdateien.ListCount - 1 | |
| Dateiname = lstDesktopdateien.List(n) | |
| FileCopy Desktoppfad & Dateiname, Backuppfad & "\" & Dateiname |
| Kill Desktoppfad & Dateiname | Löscht die Dateien auf dem Desktop. |
| Next | |
| Exit Sub | |
| |
| errDateienverschieben: | Errorhandling. |
| Select Case Err.Number | |
| Case 75 | Verzeichnis existiert bereits. |
| Resume Next | |
| Case Else | Anderer Fehler. |
| MsgBox Prompt:="Error (" & Err.Number & ")", Buttons:=vbExclamation, Title:=Err.Description |
| End Select | |
| End Sub | |
| |
| Private Sub cmdRückgängig_Click() | Dateien werden vom Backup-Verzeichnis zurück auf den |
| On Error GoTo errRückgängig | Desktop befördert. |
| Dim n As Long, Dateiname As String | |
| Dateiname = Dir(Backuppfad & "\*.*") | |
| If Dateiname = "" Then Exit Sub | |
| Do | |
| Dateiname = Dir() | |
| If Dateiname = "" Then Exit Do | |
| FileCopy Backuppfad & "\" & Dateiname, Desktoppfad & Dateiname |
| Kill Backuppfad & "\" & Dateiname | Löscht die Dateien im Backup-Verzeichnis. |
| Loop | |
| Exit Sub | |
| |
| errRückgängig: | Errorhandling. |
| MsgBox Prompt:="Error (" & Err.Number & ")", Buttons:=vbExclamation, Title:=Err.Description |
| Stop | |
| End Sub | |
| |
| Private Sub Form_Load() | Beim Laden des Programms wird festgestellt, ob sich |
| Dim Dateiname As String | Dateien auf dem Desktop befinden. |
| Dateiname = Dir(Desktoppfad & "*.*") | |
| If Dateiname = "" Then | |
| lstDesktopdateien.AddItem "No files found" | Keine Dateien gefunden. |
| Exit Sub | |
| End If | |
| Do | |
| lstDesktopdateien.AddItem Dateiname | Dateinamen werden aufgelistet. |
| Dateiname = Dir() | |
| If Dateiname = "" Then Exit Do |  |
| Loop | |
| End Sub | |
| |
| Private Sub cmdEnde_Click() | |
| Unload Me | |
| End Sub | |
| |
| |
| |
| . |
| |
zurück