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

vbscript ordner auflisten und in txt speichern

Mitglied: lollipopo

lollipopo (Level 1) - Jetzt verbinden

14.11.2008, aktualisiert 11.12.2008, 17907 Aufrufe, 2 Kommentare

Hi Leute...
Hab ein kleines Problem...
Ich hab hier ein Skript geschrieben welches die verzeichnisse und unterverzeichnisse von /programme und /windows auflistet.
Jedoch will ich diese Liste in .txt file abspeichern.das krieg ich net hin
Hier mein Sprikt.

Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "C:\Programme"
MsgBox ("Verzeichnis --> " & objStartFolder & " <-- wird durchsucht")

Set objFolder = objFSO.GetFolder(objStartFolder)
WScript.Echo objFolder.Path

ShowSubFolders objFSO.GetFolder(objStartFolder)

Sub ShowSubFolders(Folder)
For Each Subfolder In Folder.SubFolders
WScript.Echo Subfolder.Path
Set objFolder = objFSO.GetFolder(Subfolder.Path)
WScript.Echo
ShowSubFolders Subfolder
Next
End Sub
MsgBox ("Das Verzeichnis --> " & objStartFolder & " <-- wurde durchsucht")


Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "C:\Windows"
MsgBox ("Verzeichnis --> " & objStartFolder & " <-- wird durchsucht")

Set objFolder = objFSO.GetFolder(objStartFolder)
WScript.Echo objFolder.Path

ShowSubFolders objFSO.GetFolder(objStartFolder)

Sub ShowSubFolders(Folder)
For Each Subfolder In Folder.SubFolders
WScript.Echo Subfolder.Path
Set objFolder = objFSO.GetFolder(Subfolder.Path)
WScript.Echo
ShowSubFolders Subfolder
Next
End Sub
MsgBox ("Das Verzeichnis --> " & objStartFolder & " <-- wurde durchsucht")
Mitglied: 60730
14.11.2008 um 11:40 Uhr
Servus,

zum einen:

ein simples:
dir /ad %windir%\ /s >meine.txt
bzw:
dir /ad %programfiles%\ /s >>meine.txt

bringt das ganze auch schon.

Zum anderen - du mußt natürlich die Ausgabe von Wscript Echo in eine Datei unleiten.

@cscript "mein.vbs" //NoLogo > meine.txt


Gruß
Bitte warten ..
Mitglied: waldgnarf
11.12.2008 um 11:11 Uhr
Hallo,
oder:

01.
For Each Unterordner In Ordner.SubFolders 
02.
OrdnerListe=OrdnerListe & Unterordner.Name &vbCrLf 
03.
Next 
04.
 
05.
objFSO.CreateTextFile("ORDNERLISTE.txt",2).WriteLine OrdnerListe
Gruß waldgnarf
Bitte warten ..
Ähnliche Inhalte
Batch & Shell

Webseiteninhalte mit PowerShell lesen und als .txt speichern?

gelöst Frage von LaManchaBatch & Shell3 Kommentare

Hallo Skript-Experten, ich bin mal wieder dabei, die Reisepreise von AIDA Vario zu beobachten (www.aida.de/vario, insgesamt ca. 12 Seiten). ...

Batch & Shell

Einzlne TXT Files mittels Batch kopieren und in oder nach separate Ordner speichern oder verschieben

Frage von TomilaiBatch & Shell5 Kommentare

Hallo, ich habe einige Ordner mit Textdatei (um die 100). Ich möchte all diesen Dateien in separaten Ordnern speichern. ...

Batch & Shell

Zahlen von Internetseite suchen und in txt-Datei speichern

gelöst Frage von Nick.BBatch & Shell7 Kommentare

Hallo, Ich wollte auf der Internetseite XY einen Wort z.B. Preis suchen und die dahinterstehende Zahl in eine txt-Datei ...

Microsoft Office

Nachfrage, ob Datei speichern bei automatischem Speichern als TXT Datei mittels VBA

gelöst Frage von IGEL.DanielMicrosoft Office2 Kommentare

Hallo liebe Community, ich habe ein VBA Script, mit dem ich automatisch 8 Tabellenblätter aus einer XLSM Datei jeweils ...

Neue Wissensbeiträge
Windows 10

USB Maus und Tastatur versagen Dienst unter Windows 10

Erfahrungsbericht von hardykopff vor 1 TagWindows 105 Kommentare

Da steht man ziemlich dumm da, wenn der PC sich wegen fehlender USB Tastatur und Maus nicht bedienen lässt. ...

Administrator.de Feedback
Update der Seite: Alles zentriert
Information von Frank vor 1 TagAdministrator.de Feedback18 Kommentare

Hallo User, die größte Änderung von Release 5.8 ist das Zentrieren der Webseite (auf großen Bildschirmen) und ein "Welcome"-Teaser ...

Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 1 TagHumor (lol)4 Kommentare

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 2 TagenGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Heiß diskutierte Inhalte
Windows Netzwerk
WSUS4 und Windows 10 Updates automatisch installieren
Frage von sammy65Windows Netzwerk15 Kommentare

Hallo miteinander, ich habe mit einen neuen WSUS Server aufgesetzt Server 2016 darauf einen aktuellen WSUS. Grund, wir stellen ...

Speicherkarten
Vergessliche USB-Sticks?
Frage von hanheikSpeicherkarten14 Kommentare

Ich habe in den letzten Tagen 500 USB-Sticks mit Bilddateien bespielt. Obwohl ich die Dateien mit größter Sorgfalt kopiert ...

Windows Server
NTFS Berechtigungen Ordnerstruktur
Frage von hukahu23489Windows Server11 Kommentare

Hallo, ich bin seit kurzem in einer neuen IT-Abteilung und bin über das Berechtigungskonzept des Unternehmens sehr schockiert. Ich ...

Hyper-V
Hyper-V mit altem XEON-Server. Was ist falsch?
Frage von LollipopHyper-V11 Kommentare

Hallo Bin etwas frustriert. Kleinbetrieb, ca. 15 PC's, 2 Stk. Server mit einigen virtuellen PC's für Fernwartung, VaultServer für ...