Desktop-Dateien verschieben

Desktop-Dateien verschieben: 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
.
Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt