Ordner überprüfen vbs

Wie kann ich in einem Profilordner nach einem Ordner mittels vbs suchen.
Ich suche den Befehl,
bisher habe ich so viel geschafft.

f fso.Folderexists("C:\Dokumente und Einstellungen\%username%\Anwendungsdaten") = true then
msgbox "vorhanden"
else
msgbox "nicht vorhanden"

dies funktionier leider nicht mit dem %username%
was habe ich falsch gemacht?

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

Content-ID: 116842

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

Ausgedruckt am: 24.11.2024 um 22:11 Uhr

5 Kommentare

Neuester Kommentar

Ganz so simpel ist nicht:

Es gibt eine Methode zum Ermitteln der Umgebungsvariable, die kannste statt %username% nutzen.

Es müsste aber auch einfach möglich sein, den Anmeldenamen direkt zu ermitteln, das sollte einfacher gehen....

Umgebungsvariablen werden in VBS nicht automatisch aufgelöst.
Aber es gibt natürlich Befehle dazu:

Set fso = CreateObject("Scripting.FileSystemObject")  
Set wshshell = CreateObject("WScript.Shell")  
If fso.Folderexists(wshshell.ExpandEnvironmentStrings("C:\Dokumente und Einstellungen\%username%\Anwendungsdaten")) = true then  
	MsgBox "vorhanden"  
else
	MsgBox "nicht vorhanden"  
End If

Wobei für Systempfade eine Funktion SpecialFolders existiert, die in jedem Fall vorzuziehen ist.

Die Funktioniert dann nämlich auch noch unverändert mit Windows 7 die bei mir für APPDATA
C:\Users\LotPings\AppData\Roaming ergibt.

' Ausschnitte aus der script56.chm Hilfe-Datei.  z.Bsp. hier:  
' <http://wsh-vbs.de/scr56de.chm/script56.chm> herunterladen.  
Set WshShell = WScript.CreateObject("WScript.Shell")  
Set WshSysEnv = WshShell.Environment("PROCESS") ' SYSTEM, USER, PROCESS,  
WScript.Echo "Env-Username: " & WshSysEnv("USERNAME")  

WScript.Echo "Specialfolders AppData: " & WshShell.SpecialFolders("AppData")  
' AllUsersDesktop, AllUsersStartMenu, AllUsersPrograms, AllUsersStartup   
' Desktop, Favoriten, Schriftarten, Eigene Dateien, NetHood, PrintHood   
' Programme, Recent, SendTo, StartMenu, Startup, Vorlagen   

Set WshNetwork = WScript.CreateObject("WScript.Network")  
WScript.Echo "WSHNetwork Domäne = " & WshNetwork.UserDomain  
WScript.Echo "WSHNetwork Computername = " & WshNetwork.ComputerName  
WScript.Echo "WSHNetwork Benutzername = " & WshNetwork.UserName  

Hallo,
Dein Script hat funktioniert.
Jetzt stehe ich aber vor einer neuen herausforderung!
Ich möchte eine Datei von einem Odner in den ("C:\Dokumente und Einstellungen\%username%\Anwendungsdaten") kopieren. Die Datei heißt genau so wie der Benutzername. müsste also auch irgendwie mit %username% funktionieren, weiß jedoch nicht wie.

Quelldatei: D:\test\%username%.html
Zielordner C:\Dokumente und Einstellungen\%username%\Anwendungsdaten

Zu faul zum Suchen oder zu .... zum Finden?

Set fso = CreateObject("Scripting.FileSystemObject")  
Set wshshell = CreateObject("WScript.Shell")  
fso.FileCopy wshshell.ExpandEnvironmentStrings("D:\test\%username%.html"), wshshell.ExpandEnvironmentStrings("C:\Dokumente und Einstellungen\%username%\Anwendungsdaten\%username%.html")  