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”
