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, 7560 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 ...

Windows 7
Ordner Windows wird auf Netzlaufwerk angelegt (1)

Frage von blackhawk17 zum Thema Windows 7 ...

Batch & Shell
gelöst Nach bestimmten Ordner namen suchen und in einem anderem Pfad kopieren (8)

Frage von erdgnrft zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Linux
gelöst Boot failed: not a bootable disk (10)

Frage von Fleckmen zum Thema Linux ...

Multimedia & Zubehör
gelöst Iphone 6 prob (8)

Frage von jensgebken zum Thema Multimedia & Zubehör ...

Windows Installation
Eine etwas (wirklich) speziellere Frage: Windows 10-Installation über (8)

Frage von DerFurrer zum Thema Windows Installation ...

Windows Server
Probleme mit Client Software Zugriff auf Windows Server 2012 (8)

Frage von it-kolli zum Thema Windows Server ...