Top-Themen

Aktuelle Themen (A bis Z)

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, 7631 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 ..
Ähnliche Inhalte
Batch & Shell
Batch: Ordner auf Datei überprüfen
gelöst Frage von donmanolitoBatch & Shell4 Kommentare

Hallo Ich suche eine Möglichkeit alle Ordnernamen eines Verzeichnisses in eine Variable zu schieben um dann per Schleife ein ...

VB for Applications
VBS Ordner erstellen - wenn nicht vorhanden!
gelöst Frage von freshman2017VB for Applications1 Kommentar

Hallo, ich würde gerne einen Ordner erstellen, wenn dieser nicht vorhanden ist, nachfolgende VBS funktioniert Ich würde jedoch mit ...

Batch & Shell
Vor dem Verzeichniss erstellen überprüfen ob Ordner vorhanden sind
Frage von TommylikBatch & Shell12 Kommentare

Hallo, Ich habe mir folgendes geschrieben: Funktioniert ohne Probleme. Es wird immer das Laufwerk D genutzt. Könnte mir einer ...

Batch & Shell
Ordner inkl. Unterordner nach Dateien überprüfen
Frage von belfryBatch & Shell4 Kommentare

Hallo, ich bin neu hier im Forum und arbeite auch relativ neu als Administrator. Ich soll ein Batchskript schreiben, ...

Neue Wissensbeiträge
Windows 10

Autsch: Microsoft bündelt Windows 10 mit unsicherer Passwort-Manager-App

Tipp von kgborn vor 21 StundenWindows 102 Kommentare

Unter Microsofts Windows 10 haben Endbenutzer keine Kontrolle mehr, was Microsoft an Apps auf dem Betriebssystem installiert (die Windows ...

Sicherheits-Tools

Achtung: Sicherheitslücke im FortiClient VPN-Client

Tipp von kgborn vor 23 StundenSicherheits-Tools

Ich weiß nicht, wie häufig die NextGeneration Endpoint Protection-Lösung von Fortinet in deutschen Unternehmen eingesetzt wird. An dieser Stelle ...

Internet

USA: Die FCC schaff die Netzneutralität ab

Information von Frank vor 1 TagInternet3 Kommentare

Jetzt beschädigt US-Präsident Donald Trump auch noch das Internet. Der neu eingesetzte FCC-Chef Ajit Pai ist bekannter Gegner einer ...

DSL, VDSL

ALL-BM200VDSL2V - Neues VDSL-Modem mit Vectoring von Allnet

Information von Lochkartenstanzer vor 1 TagDSL, VDSL2 Kommentare

Moin, Falls jemand eine Alternative zu dem draytek sucht: Gruß lks

Heiß diskutierte Inhalte
Windows Server
GPO nur für bestimmte Computer
Frage von Leo-leWindows Server13 Kommentare

Hallo Forum, gern würde ich ein Robocopy script per Bat an eine GPO hängen. Wichtig wäre aber dort der ...

Windows Server
KMS Facts for Client configuration
Frage von winlinWindows Server13 Kommentare

Hey Leute, wir haben in unserem Netz nun einen neuen KMS Server. Haben Bestands-VMs die noch nicht aktiviert sind. ...

Windows Tools
Software-Tool zum Entfernen von bösartigem Windows
Frage von emeriksWindows Tools11 Kommentare

Hi, siehe Betreff hat das jemals irgendjemand schonmal sinnvoll eingesetzt? (MRT) E.

Router & Routing
OpenWRT bzw. L.E.D.E auf Buffalo WZR-HP-AG300H - update
gelöst Frage von EpigeneseRouter & Routing11 Kommentare

Guten Tag, ich habe auf einem Buffalo WZR-HP-AG300H die alternative Firmware vom L.E.D.E Projekt geflasht. Ich bin es von ...