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, 4779 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 ..
Ähnliche Inhalte
Festplatten, SSD, Raid
gelöst Frage wegen Partitionen ändern (5)

Frage von DeathNote zum Thema Festplatten, SSD, Raid ...

Windows 10
gelöst Partition vor der Systempartition löschen - Windows10 (4)

Frage von Selassi zum Thema Windows 10 ...

Verschlüsselung & Zertifikate
Verschlüsselung: Mit Veracrypt lässt sich nur eine Partition verschlüsseln (1)

Frage von NCCTech zum Thema Verschlüsselung & Zertifikate ...

Batch & Shell
gelöst Mit Batch einen Dateityp auf Partition suchen (2)

Frage von M4tze521999 zum Thema Batch & Shell ...

Neue Wissensbeiträge
Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(2)

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 ...

Windows 10

Windows 10: Erste Anmeldung Animation deaktivieren

(3)

Anleitung von alemanne21 zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Netzwerkprotokolle
gelöst Leiten "dumme" Switches VLAN-Tags mit durch? (26)

Frage von coltseavers zum Thema Netzwerkprotokolle ...

Windows Server
gelöst Neues KB für W10 1607 und W2K16 wieder mal nicht im WSUS 3.0, hat das noch jemand? (16)

Frage von departure69 zum Thema Windows Server ...

Netzwerkgrundlagen
Kann auf Freigabe nicht Zugreifen (16)

Frage von leon123 zum Thema Netzwerkgrundlagen ...

Router & Routing
FTTH bzw FTTB Router (13)

Frage von ukulele-7 zum Thema Router & Routing ...