ich möchte meine Excel Dateien an verschieden Orten speichern.
Und zwar z.B.vom USB-Stick auf einen Laptop oder umgekehrt.
Ich möchte aber nicht den ganzen Stick kopieren, ich möchte nur die geänderten Dateien übertragen.
Gruß
Robert
Sub speichern()
Dim StrgPfad
Dim Datei
StrgPfad = "C:"
Datei = "rofu"
If Dir(StrgPfad & "\" & Datei & ".xls") "" Then
MsgBox Datei & ".xls - Datei ist vorhanden"
Else
MsgBox Datei & ".xls - Datei ist nicht vorhanden"
End If
End Sub
das mußt Du dann natürlich an Deine Bedürfnisse anpassen.
rufst Du nun die Prozedur auf, wird sie Deine Datei rofu.xls finden.
lösche nun die Datei wieder und lass den Code erneut laufen.
nun findet er auch die Datei nicht mehr.
Gruß Matthias