/ Published in: Visual Basic
Expand |
Embed | Plain Text
Set fso = CreateObject("Scripting.FileSystemObject") ' Dateien eines Verzeichnisses auflisten und in Datei schreiben Set folder = fso.GetFolder("C:\tmp") Set NewFile = fso.CreateTextFile("FileList.txt", True) Set files = folder.Files For each folderIdx In files NewFile.WriteLine(folderIdx.Name) Next NewFile.Close ' Dateien anlegen (touch) fso.CreateTextFile "angelegt.txt", True ' Datei in anderes Verzeichnis kopieren fso.CopyFile "t.txt", "ziel" ' Datei loeschen fso.deletefile "angelegt.txt" ' Datei umbenennen ' Datei verschieben fso.movefile "FileList.txt", "ziel\" 'Verzeichnisse ' Verzeichnis erstellen fso.CreateFolder "newfolder" ' Dateien und Unterverzeichnisse auflisten ' Verzeichnis kopienr fso.copyFolder "newfolder", "ziel\" ' Verzeichnis loeschen fso.deletefolder "newfolder" fso.deletefolder "ziel\newfolder" ' Verzeichnis verschieben fso.CreateFolder "tomove" fso.moveFolder "tomove", "ziel\" ' Ornder umbennen
You need to login to post a comment.
