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

Oberste 2 Verzeichnisebenen einer Partition auslesen

Frage Entwicklung VB for Applications

Mitglied: TuXHunt3R

TuXHunt3R (Level 3) - Jetzt verbinden

10.08.2007, aktualisiert 11.08.2007, 4767 Aufrufe, 3 Kommentare

Guten Tag


Ich brauche ein VBScript, welches die ersten 2 Verzeichnisebenen einer Partition auflistet. Leider habe ich keine Idee, wie ich das anstellen soll.

Mir schwebt da etwas mit

For Each SubFolder In Folder.SubFolders

Next

im Kopf rum, ich komm allerdings nicht auf die Lösung.


Kann einer von euch VB-Göttern mir kurz helfen?
Mitglied: 16409
10.08.2007 um 16:08 Uhr
du hast dir doch schon selber die Antwort gegeben.
Du liest als erstes die 1 Ebene aus, speicherst die Werte in einem Array und gibst sie aus. Danach liest du dann das Array aus und gibst die die 2. Ebene mit For Each SubFolder In Folder.SubFolders für jeden Ordner im Array aus.

Hoffe das hilft dir schon.
Bitte warten ..
Mitglied: bastla
10.08.2007 um 23:46 Uhr
Hallo TuXHunt3R!

Rein schematisch würde das etwa so aussehen, wobei Du das Script zum Testen besser über
01.
cscript //nologo Scriptname.vbs
starten solltest :
01.
Root = "C:\" 
02.
For Each Folder In CreateObject("Scripting.FileSystemObject").GetFolder(Root).SubFolders 
03.
	WScript.Echo Folder.Path 
04.
	If Folder.Name <> "System Volume Information" Then 
05.
		For Each SubFolder In Folder.SubFolders 
06.
			WScript.Echo SubFolder.Path 
07.
		Next 
08.
	End If 
09.
Next
Ob Dir anstelle der Ausgabe des gesamten Pfades auch ein "Folder.Name" genügt, musst Du selbst wissen ...

Grüße
bastla
Bitte warten ..
Mitglied: TuXHunt3R
11.08.2007 um 16:50 Uhr
@ Bastla


Danke, so was habe ich gebraucht
Bitte warten ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Peripheriegeräte
Kontrolliertes auslesen von Speicherkarten (2)

Frage von -s-v-o- zum Thema Peripheriegeräte ...

Batch & Shell
gelöst Batch: Textdatei Zeilenweise auslesen (2)

Frage von CreatorX zum Thema Batch & Shell ...

Batch & Shell
gelöst Fenstertitel von anderen Tasks per batch auslesen (3)

Frage von NetMare zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Erkennung und -Abwehr
Virenschutz - Meinungen (29)

Frage von honeybee zum Thema Erkennung und -Abwehr ...

Windows 10
gelöst Welches OS für Firmengeräte? (20)

Frage von MarkusVH zum Thema Windows 10 ...

Netzwerke
Abisolierwerkzeug (18)

Frage von SarekHL zum Thema Netzwerke ...

Exchange Server
SBS2011: POP3-Connector 10 MB Grenze Email Benachrichtigung (17)

Frage von bogi1102 zum Thema Exchange Server ...