VBS Ordner erstellen - wenn nicht vorhanden!

Hallo,

ich würde gerne einen Ordner erstellen, wenn dieser nicht vorhanden ist, nachfolgende VBS funktioniert

1
2
3
4
5
6
7
8
9
10
11
Dim objFSO, newDIR
 
ziel="C:\Users\user01\Desktop\TEST"  
 
Set objFSO = CreateObject("Scripting.FileSystemObject")    
 
if objFSO.Folderexists(ziel) = false then
 
Set newDIR = objFSO.CreateFolder(ziel)
 
end if

Ich würde jedoch mit dem aktuellen User-Verzeichnis arbeiten, wer hat da Tipps für mich?
Nachfolgende Datei funkitoniert nicht:

1
2
3
4
5
6
7
8
9
10
11
Dim objFSO, newDIR
 
ziel="%userprofile%\Desktop\TEST"  
 
Set objFSO = CreateObject("Scripting.FileSystemObject")    
 
if objFSO.Folderexists(ziel) = false then
 
Set newDIR = objFSO.CreateFolder(ziel)
 
end if

Gruß, freshman2017

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

Content-ID: 337149

Url: https://administrator.de/forum/vbs-ordner-erstellen-wenn-nicht-vorhanden-337149.html

Ausgedruckt am: 11.04.2025 um 14:04 Uhr

1 Kommentar

Hatten wird doch schon beim letzten mal ...

ExpandEnvironmentStrings = Stringverkettung !!! Wann kapierst du's endlich

1
2
3
4
5
6
Set objShell = CreateObject("Wscript.Shell")  
Set fso = CreateObject("Scripting.Filesystemobject")  
ziel = objShell.ExpandEnvironmentStrings("%userprofile%") & "\Desktop\Test"  
If Not fso.FolderExists(ziel) Then 
	fso.CreateFolder ziel
End if

Gruß