Auf UNC-Share verschachtelte Unterordner anlegen über VBScript

Hallo zusammen,

ich möchte gerne auf ein UNC-Share einige Dateien in verschiedene, teilweise noch nicht vorhandene Ornder / Unterordner kopieren.

Die Ordnerstrukuren ergeben sich aus der Ableitung der Quellen...
Bei einem lokalem Laufwerk habe ich ein Script gefunden, das diese verschachtelten Ordner anlegt.
Ist das auch bei einem UNC-Share möglich?
Wenn ja, könntet ihr mir behilflich sein?

Ziel-Share-Name z. B. \\server1\sharename\ordner1\ordner2\ordner3
Server-Name und Sharename sind immer gleich.

Vielen Dank

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 297735

Url: https://administrator.de/forum/auf-unc-share-verschachtelte-unterordner-anlegen-ueber-vbscript-297735.html

Ausgedruckt am: 07.04.2025 um 20:04 Uhr

4 Kommentare

Neuester Kommentar

Hallo

set aFolder=Ordner1
set bFolder=Ordner2
set cFolder=Ordner3

Set aDIR=\\SERVER1\Sharename
md "%aDir%"\%aFolder%  
md "%aDir%"\%aFolder%\%bFolder%  
md "%aDir%"\%aFolder%\%bFolder%\%cFolder%  

Gruss

Wieso wegen so einer Banalität so eine Welle machen ? Powershell is your friend ...

md '\\server1\sharename\ordner1\ordner2\ordner3' -Force

Feddich ...

Wenns VBS sein muss, das geht auch:

Const SHARE = "\\server\sharename"  
Const FOLDER = "Ordner1\Ordner2\Ordner3"  

Set fso = CreateObject("Scripting.Filesystemobject")  
fsPath = SHARE
For Each subpath In Split(FOLDER,"\",-1,1)  
	fspath = fso.BuildPath(fsPath,subpath)
	If Not fso.FolderExists(fspath) Then fso.CreateFolder fspath
Next
MsgBox "Ordner '" & fspath & "' wurde erstellt.", vbInformation  