Dateibackup via Makro
13.12.2004 17:18:20
Torben
bin an einem Makro zugange das Dateien backupen soll, die Variablen (u,t,y) funktionieren alle, bloß folgendes Problem tut sich auch:
Er will einfach nicht kopieren, ich hoffe Ihr seht den Fehler, oder habt schon einen ähnlichen Code geschrieben.
Auszug:
Dim index As Integer, FSYObjekt As Object, FObjekt As Object
Set FSYObjekt = CreateObject("Scripting.FileSystemObject")
With Application.FileSearch
.Filename = u~f~
~f~.LookIn = t~f~
~f~.SearchSubFolders = True~f~
~f~If .Execute > 0 Then~f~
~f~For index = 1 To .FoundFiles.Count~f~
Set FObjekt = FSYObjekt.GetFile(.FoundFiles(index))
~f~If .FoundFiles.Count > 0 Then FObjekt.Move y
Next
End If
End With
End Sub
2 Frage
Wie kann ich die Upper/Lowercase Schreibweise umgehen, d.h. wenn das Programm schauen soll ob ein Ordner bereits vorhanden ist soll es egal sein ober er "Test" oder "test" heißt