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?
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?
Please also mark the comments that contributed to the solution of the article
Content-Key: 116842
Url: https://administrator.de/contentid/116842
Printed on: April 24, 2024 at 04:04 o'clock
5 Comments
Latest comment
Umgebungsvariablen werden in VBS nicht automatisch aufgelöst.
Aber es gibt natürlich Befehle dazu:
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
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
Zu faul zum Suchen oder zu .... zum Finden?
Guter Startpunkt ist hier: http://msdn.microsoft.com/en-us/library/ms950396.aspx
Oder für FileSystemObject: http://msdn.microsoft.com/en-us/library/6kxy1a51(VS.85).aspx
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")
Oder für FileSystemObject: http://msdn.microsoft.com/en-us/library/6kxy1a51(VS.85).aspx