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

gelöst VB6 Für jeden Ordner Function ausführen

Mitglied: hexflex

hexflex (Level 1) - Jetzt verbinden

18.03.2007, aktualisiert 19:56 Uhr, 4573 Aufrufe, 3 Kommentare

Hi,

Ich möchte gerne in VB6 für jeden Ordner und alle Unterordner eine function ausführen lassen.

Die Function :

Function List(ordner)
Open App.path & "\" & "Liste.txt" for append as #1
Print #1, ordner
Close #1
End Function



Nur mein Problem, wie kann ich dies Verwirklichen?
Mitglied: bastla
18.03.2007 um 15:25 Uhr
Hallo hexflex!

Soll das ein Äquivalent zu
01.
dir d:\ /s /b /ad | sort > Liste.txt
werden?

Grüße
bastla
Bitte warten ..
Mitglied: bastla
18.03.2007 um 16:35 Uhr
Hallo hexflex!

Ich nehme mal an, Du suchst etwas in der Art:
01.
Sub ListAllFolders() 
02.
Set objFS = CreateObject("Scripting.FileSystemObject") 
03.
DoFolders objFS.GetFolder("D:\") 'Startordner hier angeben (bzw eher aus Dialog / Textfeld / Variable übernehmen) 
04.
End Sub 
05.
 
06.
Sub DoFolders(Ordner As Object) 
07.
Dim UnterOrdner As Object 
08.
If LCase(Ordner.Name) <> LCase("System Volume Information") Then 
09.
    For Each UnterOrdner In Ordner.SubFolders 
10.
        List UnterOrdner.Path 'List-Aufruf als Sub, nicht als Function 
11.
        DoFolders UnterOrdner 
12.
    Next 
13.
End If 
14.
End Sub
Anmerkung: Was Du oben als "Function List(ordner)" dargestellt hast, ist für mich mangels Rückgabewert ein Sub - entsprechend auch der Aufruf in der Schleife.

Sollte tatsächlich nur der Name der Ordner gefragt sein, anstelle von " ;.Path" " ;.Name" verwenden.

Soll auch der Startordner mit ausgegeben werden, müsste die Zeile
01.
List Ordner.Path
unmittelbar nach dem " ;Dim UnterOrdner As Object" eingefügt und die Zeile " ;List UnterOrdner.Path" entfernt werden.

Grüße
bastla
Bitte warten ..
Mitglied: hexflex
18.03.2007 um 19:56 Uhr
Hi danke bastla das ist genau das was ich gesucht habe!
Bitte warten ..
Ähnliche Inhalte
Batch & Shell

Abfrage function und weitergabe der Parameter

gelöst Frage von complexBatch & Shell6 Kommentare

Hallo zusammen, bin leider noch blutiger anfänger im Bereich Powershell. Zu meinem Problem: Ich möchte ein Script schreiben, dass ...

PHP

Php function für Statusabfrage aus MySQL

gelöst Frage von carl7nPHP6 Kommentare

Hi, ich bringe mir gerade anhand verschiedener Webtutorials selbst PHP und MySQL bei. Das klappt grundsätzlich schon ganz gut. ...

VB for Applications

Abfrage über function bei vbs

gelöst Frage von RobertKaVB for Applications4 Kommentare

Hallo zusammen, habe ein vb Script, welches je nach Aufruf verschiedene Mails verschickt. Es funktioniert also schon. Und das ...

Installation

Inno Setup function DirExists Problem

Frage von 115122Installation1 Kommentar

Hallo, ich würde gerne in einer Updateroutine vor dem eigentlichen Update prüfen lassen, ob der Installationspfad auch schon vorhanden ...

Neue Wissensbeiträge
Backup

2016 - Restore mit WBAdmin - iSCSI Device als Sicherungsziel

Erfahrungsbericht von Henere vor 1 TagBackup1 Kommentar

Servus zusammen, was mich eben einige graue Haare gekostet hat Server 2016. Ich habe meinem Server eine weitere M2 ...

Humor (lol)
(Part num your Hacked phone. +XX XXXXXX5200)
Erfahrungsbericht von Henere vor 3 TagenHumor (lol)7 Kommentare

Mein Handy hat aber ne ganz andere Endnummer. Muss ich mir jetzt Sorgen machen ? :-) Vielleicht betrifft es ...

Exchange Server

Letztes Update für Exchange 2016 CU9 war in gewisser Weise destruktiv

Erfahrungsbericht von DerWoWusste vor 3 TagenExchange Server9 Kommentare

Kurzer Erfahrungsbericht zu Exchange2016-KB4340731-x64 Der Exchangeserver hat wie gewöhnlich versucht, es in der Nacht automatisch zu installieren - abgesehen ...

Erkennung und -Abwehr

Neue Sicherheitslücke Foreshadow (L1TF) gefährdet fast alle Intel-Prozessoren

Information von Frank vor 4 TagenErkennung und -Abwehr3 Kommentare

Eine neue Sicherheitslücke, genannt Foreshadow (alias L1TF) wurde auf der Usenix Security 18 von einem Team internationaler Experten veröffentlicht. ...

Heiß diskutierte Inhalte
E-Mail
Deutsche e-Mail Adresse auf iPhone in Katar. Nur Probleme
Frage von vanTastE-Mail15 Kommentare

Moin, ich habe hier in Deutschland auf einem Exchange 2013 eine e-Mail Adresse (name@domain.de) für einen Kollegen in Katar ...

Windows Server
Server 2016 Autotiering Storage Space
Frage von HenereWindows Server11 Kommentare

Servus, ich habe jetzt ein StorageSpace auf einem Server 2016 in Betrieb zum Testen. 1x M2 mit 512GB (970pro) ...

Netzwerke
SSH - Wieso werde ich nach VPN Verbindung rausgeschmissen?
Frage von VernoxVernaxNetzwerke10 Kommentare

Hallo, ich habe es endlich geschafft mein Handy mit einer VPN Verbindung an meinen Router anzuschließen. Nach der Login ...

Hyper-V
Hyper-V keinen Zugriff auf USB Gerät über USB Server
Frage von Barns83Hyper-V10 Kommentare

Normal bin ich ein stiller Leser und wühle mich im normal Fall durch Foren oder schau durch meine Bücher. ...