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, 16364 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 ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(8)

Tipp von agowa338 zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Microsoft
Ordner mit LW-Buchstaben versehen und benennen (21)

Frage von Xaero1982 zum Thema Microsoft ...

Netzwerkmanagement
gelöst Anregungen, kleiner Betrieb, IT-Umgebung (18)

Frage von Unwichtig zum Thema Netzwerkmanagement ...

Windows Update
Treiberinstallation durch Windows Update läßt sich nicht verhindern (17)

Frage von liquidbase zum Thema Windows Update ...