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

vbscript ordner auflisten und in txt speichern

Frage Entwicklung

Mitglied: lollipopo

lollipopo (Level 1) - Jetzt verbinden

14.11.2008, aktualisiert 11.12.2008, 17202 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
VB for Applications
gelöst VBScript und OR (5)

Frage von Invisan zum Thema VB for Applications ...

Neue Wissensbeiträge
Linux Netzwerk

Ping und das einstellbare Bytepattern

(1)

Erfahrungsbericht von LordGurke zum Thema Linux Netzwerk ...

Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(4)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Heiß diskutierte Inhalte
Microsoft Office
Office Druck fehler (18)

Frage von DaistwasimBusch zum Thema Microsoft Office ...

Windows Server
Zertifikat am DC erneuern funktioniert nicht (13)

Frage von takvorian zum Thema Windows Server ...