Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Ordner überprüfen vbs

Frage Entwicklung

Mitglied: retz12

retz12 (Level 1) - Jetzt verbinden

26.05.2009, aktualisiert 16:42 Uhr, 7541 Aufrufe, 5 Kommentare

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?
Mitglied: Nailara
26.05.2009 um 16:54 Uhr
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....
Bitte warten ..
Mitglied: AndreasHoster
26.05.2009 um 17:47 Uhr
Umgebungsvariablen werden in VBS nicht automatisch aufgelöst.
Aber es gibt natürlich Befehle dazu:
01.
Set fso = CreateObject("Scripting.FileSystemObject") 
02.
Set wshshell = CreateObject("WScript.Shell") 
03.
If fso.Folderexists(wshshell.ExpandEnvironmentStrings("C:\Dokumente und Einstellungen\%username%\Anwendungsdaten")) = true then 
04.
	MsgBox "vorhanden" 
05.
else 
06.
	MsgBox "nicht vorhanden" 
07.
End If
Bitte warten ..
Mitglied: LotPings
26.05.2009 um 18:00 Uhr
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.

01.
' Ausschnitte aus der script56.chm Hilfe-Datei.  z.Bsp. hier: 
02.
' <http://wsh-vbs.de/scr56de.chm/script56.chm> herunterladen. 
03.
Set WshShell = WScript.CreateObject("WScript.Shell") 
04.
Set WshSysEnv = WshShell.Environment("PROCESS") ' SYSTEM, USER, PROCESS, 
05.
WScript.Echo "Env-Username: " & WshSysEnv("USERNAME") 
06.
 
07.
WScript.Echo "Specialfolders AppData: " & WshShell.SpecialFolders("AppData") 
08.
' AllUsersDesktop, AllUsersStartMenu, AllUsersPrograms, AllUsersStartup  
09.
' Desktop, Favoriten, Schriftarten, Eigene Dateien, NetHood, PrintHood  
10.
' Programme, Recent, SendTo, StartMenu, Startup, Vorlagen  
11.
 
12.
Set WshNetwork = WScript.CreateObject("WScript.Network") 
13.
WScript.Echo "WSHNetwork Domäne = " & WshNetwork.UserDomain 
14.
WScript.Echo "WSHNetwork Computername = " & WshNetwork.ComputerName 
15.
WScript.Echo "WSHNetwork Benutzername = " & WshNetwork.UserName
Bitte warten ..
Mitglied: retz12
26.05.2009 um 19:35 Uhr
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
Bitte warten ..
Mitglied: AndreasHoster
27.05.2009 um 09:37 Uhr
Zu faul zum Suchen oder zu .... zum Finden?
01.
Set fso = CreateObject("Scripting.FileSystemObject") 
02.
Set wshshell = CreateObject("WScript.Shell") 
03.
fso.FileCopy wshshell.ExpandEnvironmentStrings("D:\test\%username%.html"), wshshell.ExpandEnvironmentStrings("C:\Dokumente und Einstellungen\%username%\Anwendungsdaten\%username%.html")
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
Bitte warten ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Batch & Shell
Ordner inkl. Unterordner nach Dateien überprüfen (4)

Frage von belfry zum Thema Batch & Shell ...

Batch & Shell
gelöst Per VBS Prog. beenden wenn Ordner leer (17)

Frage von Knuefi zum Thema Batch & Shell ...

Batch & Shell
überprüfen ob 3 Ordner in den jeweiligen Unterordnern existieren (2)

Frage von functionstrut zum Thema Batch & Shell ...

VB for Applications
gelöst Bestimmte Spalten aus CSV-Datei auslesen (VBS) (9)

Frage von Gurkenhobel zum Thema VB for Applications ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
FritzBox, zwei Server, verschiedene Netze (18)

Frage von DavidGl zum Thema LAN, WAN, Wireless ...

Windows Netzwerk
Windows 10 RDP geht nicht (18)

Frage von Fiasko zum Thema Windows Netzwerk ...

Windows Server
Outlook Verbindungsversuch mit Exchange (15)

Frage von xbast1x zum Thema Windows Server ...