VBS – Dateistruktur erstellen inkl. Testdateien

Create Directory and File Structure via VBS

Mit diesem .vbs Skript erstellt ihr so viele Ordner und Unterordner wie ihr wollt. Dabei werden in jedem Unterordner so viele Test Dateien erzeugt wie ihr vorgibt.

Set objFSO = CreateObject(„Scripting.FileSystemObject“)
strStartPath = „E:\TEST\TEMP“

strFileName = „DerWindowsPapst“
strExt = „.txt“

Set objFolder = objFSO.CreateFolder(strStartPath)
 for i = 0 to 10
 strNewFolder = strStartPath & „\Heiliger“ & i
 Set objFolder = objFSO.CreateFolder(strNewFolder)
 for j = 0 to 10
 strSubFolder = strNewFolder & „\Samariter“ & i & „-“ & j
 Set objFolder = objFSO.CreateFolder(strSubFolder)
 for k = 0 to 10
 Set objFile = objFSO.CreateTextFile(strSubFolder & „\“ & strFileName & i & „-“ & j & „-“ & k & strExt)
 next
 next
 Set objFile = objFSO.CreateTextFile(strNewFolder & „\“ & strFileName & i & strExt)
 next
 msgbox „Aktion abgeschlossen“