VBS Ordner erstellen - wenn nicht vorhanden!
Hallo,
ich würde gerne einen Ordner erstellen, wenn dieser nicht vorhanden ist, nachfolgende VBS funktioniert
Ich würde jedoch mit dem aktuellen User-Verzeichnis arbeiten, wer hat da Tipps für mich?
Nachfolgende Datei funkitoniert nicht:
Gruß, freshman2017
ich würde gerne einen Ordner erstellen, wenn dieser nicht vorhanden ist, nachfolgende VBS funktioniert
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:
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
Please also mark the comments that contributed to the solution of the article
Content-Key: 337149
Url: https://administrator.de/contentid/337149
Printed on: April 26, 2024 at 11:04 o'clock
1 Comment
Hatten wird doch schon beim letzten mal ...
ExpandEnvironmentStrings = Stringverkettung !!! Wann kapierst du's endlich
Gruß
ExpandEnvironmentStrings = Stringverkettung !!! Wann kapierst du's endlich
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