5
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?
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 116842
Url: https://administrator.de/contentid/116842
Printed on: April 19, 2024 at 21:04 o'clock
5 Comments
Latest comment
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....
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:
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
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
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?
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
