Batch to Vbs

Hallo zusammen,

wie würde dieser Batch Befehl in VBS aussehen?

if not exist U:\LogDateien\%computername%, md U:\LogDateien\%computername%

Für alle Antworten Danke ich im Voraus!

Gruß Kirus

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

Content-ID: 92167

Url: https://administrator.de/contentid/92167

Ausgedruckt am: 26.11.2024 um 16:11 Uhr

5 Kommentare

Neuester Kommentar

Set wshshell = CreateObject("WScript.Shell")  
Set fso = CreateObject("Scripting.FileSystemObject")  
If not fso.FolderExists(wshshell.ExpandEnvironmentStrings("U:\LogDateien\%computername%")) then  
	fso.CreateFolder(wshshell.ExpandEnvironmentStrings("U:\LogDateien\%computername%"))  
End If

Hallo Kirus22!

Etwa so (wobei der Ordner "U:\LogDateien" bereits existieren muss):

Set WshNetwork = WScript.CreateObject("WScript.Network")  
Pfad = "U:\LogDateien\" & WshNetwork.ComputerName  

Set fso = CreateObject("Scripting.FileSystemObject")  
If fso.FileExists(Pfad) Then
    WScript.Echo "Es ist bereits eine Datei " & Pfad & " vorhanden!"  
Else
    If Not fso.FolderExists(Pfad) Then
        fso.CreateFolder(Pfad)
    End If
End If

Grüße
bastla

Wobei in der Batchzeile ein Komma zu viel ist, das da nicht hingehört und sie deshalb auch nicht korrekt funktionieren wird.

Moin

Das sollte in etwa so aussehen (nicht getestet) :

Set WshNetwork = Wscript.CreateObject("Wscript.Network")  
WORKSTATION = WshNetwork .ComputerName

Set objFSO = CreateObject("Scripting.FileSystemObject")  
If Not oFSO.FolderExists("U:\LogDateien\" & WORKSTATION) Then  
    oFSO.CreateFolder("U:\LogDateien\" & WORKSTATION)  
end if

Gruß L.