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
Kommentar vom Moderator Biber am 13.05.2010 um 17:58:41 Uhr
Hallo Pogrammierer,
Hmm, diese Anrede klingt ein wenig abwertend irgendwie...
Und auf bastla angewandt sind sowohl "Gramm" wie auch die Vorsilbe vollkommen verfehlt.
GELÖST

Problem mit VB-Script (Laufzeitfehler 5)

Frage Entwicklung VB for Applications

Mitglied: alexander01

alexander01 (Level 1) - Jetzt verbinden

13.05.2010, aktualisiert 17:58 Uhr, 10131 Aufrufe, 3 Kommentare

Hallo Pogrammierer,

ein VB-Script (wohl gängiger Inhalt) bringt mir einen Laufzeitfehler 5 (ungültiger Prozeduraufruf oder ungültiges Argument) in der drittletzten Zeile VerzName = Dir$().

Sinn ist es, mit diesem Script
in Spalte 1 ab der 6. Zeile den Verzeichnisnamen
in Spalte 2 ab der 6. Zeile zeilenweise die Dateinamen des Verzeichnisses aufzulisten
und das für alle bestehenden Verzeichnisse

Script:
01.
Private Sub CommandButton2_Click() 
02.
Dim VerzName, DateiName, VerzPfad, DateiTyp, VerzListe(), DateiListe() As String 
03.
Dim VerzNr, DateiNr, TempListe, Attrib As Integer 
04.
VerzPfad = "C:\Programme\Brother" '(Testverzeichnis) 
05.
DateiTyp = "*.*" 
06.
 
07.
' Liste mit Unterverzeichnissen erstellen 
08.
VerzNr = 0 
09.
VerzName = Dir$(VerzPfad & "\", Attrib Or vbDirectory) 
10.
While VerzName <> vbNullString 
11.
    If (VerzName <> ".") And (VerzName <> "..") Then 
12.
        ' Handelt es sich um ein Verzeichnis? 
13.
        If GetAttr(VerzPfad & "\" & VerzName) And vbDirectory Then 
14.
            VerzNr = VerzNr + 1 
15.
            ReDim Preserve VerzListe(1 To VerzNr) 
16.
            VerzListe(VerzNr) = VerzName 
17.
                                   
18.
            ' Liste mit Dateinamen erstellen 
19.
                If Right$(VerzPfad, 1) = "\" Then 
20.
                    DateiName = Dir$(VerzPfad & DateiTyp, Attrib) 
21.
                Else 
22.
                    DateiName = Dir$(VerzPfad & "\" & DateiTyp, Attrib) 
23.
                End If 
24.
                DateiNr = 0 
25.
                While DateiName <> vbNullString 
26.
                    If (DateiName <> ".") And (DateiName <> "..") Then 
27.
                        DateiNr = DateiNr + 1 
28.
                        ReDim Preserve DateiListe(1 To DateiNr) 
29.
                        DateiListe(DateiNr) = VerzPfad & "\" & DateiName 
30.
                        Worksheets("Check").Cells(VerzNr + DateiNr + 5, 1) = VerzName 
31.
                        Worksheets("Check").Cells(VerzNr + DateiNr + 5, 2) = DateiName 
32.
                    End If 
33.
                    DateiName = Dir$() 
34.
                Wend 
35.
        End If 
36.
    End If 
37.
VerzName = Dir$() ' Nächsten Datei- oder Verzeichnisnamen holen 
38.
Wend 
39.
 
40.
End Sub
Und: wie kann man die Verzeichnisse sortieren? (die Verzeichnisse bestehen nur aus Ziffern)


Ich danke sehr!

Gruß

Alexander

[Edit Biber] Codeformatierung zwangsverordnet. [/Edit]
Mitglied: bastla
13.05.2010 um 14:48 Uhr
Hallo alexander01!

Um zumindest zu erklären, warum das so nicht funktioniert, Zitate aus der VBA-Hilfe:
Wenn keine weiteren übereinstimmenden Dateinamen gefunden werden, gibt die Dir-Funktion eine Null-Zeichenfolge ("") zurück. Wurde einmal eine Null-Zeichenfolge zurückgegeben, müssen Sie bei nachfolgenden Aufrufen wieder das Argument Pfadname angeben, da sonst ein Fehler auftritt.
Wenn Du also die Dateiliste durch hast, müsstest Du dem nächsten "Dir" (das "$" dahinter ist mittlerweile zwar nicht schädlich, aber nicht mehr nötig) wieder einen Pfad übergeben.

Außerdem:
Ein rekursiver Aufruf der Dir-Funktion ist allerdings nicht möglich.
Das Sortieren (wenn es dann etwas zu Sortierendes geben wird) sollte sich unter Verwendung der entsprechenden Tabellenfunktion realisieren lassen.

Grüße
bastla

[Edit] Hallo LotPings! Seit ich den Winterschlaf nun doch hinter mir gelassen habe und nur mehr mit der Frühjahrsmüdigkeit kämpfe, geht's so einigermaßen ... [/Edit]
Bitte warten ..
Mitglied: LotPings
13.05.2010 um 14:52 Uhr
Zitat von alexander01:
ein VB-Script (wohl gängiger Inhalt) bringt mir einen Laufzeitfehler 5 (ungültiger Prozeduraufruf oder ungültiges
Argument) in der drittletzten Zeile VerzName = Dir$().

Sorry das ist kein vbscript, sieht eher nach Excel VBA aus.

Und bevor man sich das näher ansieht,
bitte formatiere deinen Code zur besseren Les-/Referenzier-barkeit unbedingt mit den dafür vorgesehenen Codetags in der Formatierungshilfe

Auch Einrückungen schaden der Lesbarkeit nicht.

Gruß
LotPings

Hallo Bastla, Ich leide wohl noch an der Feiertagsmüdigkeit
Bitte warten ..
Mitglied: bastla
14.05.2010 um 15:19 Uhr
... etwas konkreter (und unter Verwendung einer alternativen Zugriffsmöglichkeit auf das Dateisystem):
01.
Dim R, C, fso 
02.
 
03.
Private Sub CommandButton2_Click()  
04.
Ordner = "C:\Programme\Brother" '(Testverzeichnis) 
05.
R = 5 
06.
C = 3 
07.
 
08.
Set fso = CreateObject("Scripting.FileSystemObject") 
09.
DoFolders fso.GetFolder(Ordner) 
10.
Cells(R, C).CurrentRegion.Sort Key1:=Cells(R, C), Order1:=xlAscending, Header:=xlNo 
11.
MsgBox "Fertig." 
12.
End Sub 
13.
 
14.
Sub DoFolders(Folder) 
15.
For Each File In Folder.Files 
16.
    Cells(R, C) = Folder.Name 
17.
    Cells(R, C + 1) = File.Name 
18.
    R = R + 1 
19.
Next 
20.
For Each SubFolder In Folder.SubFolders 
21.
    DoFolders SubFolder 
22.
Next 
23.
End Sub
Da dieser Ansatz rekursiv arbeitet und daher die gesamte Ordnerstruktur unterhalb des angegebenen Startordners "abgrast", würde sich vielleicht eher
Cells(R, C) = Folder.Path
anbieten - allenfalls auch als relativer Pfad:
Cells(R, C) = Replace(Folder.Path, Ordner & "\", "", , , vbTextCompare)
Grüße
bastla

P.S.: @Biber: Da "Pogrammierer" keinerlei phonetische Ähnlichkeit mit "Scripter" oder "Batcher" aufweist, hatte ich mich ohnehin nicht angesprochen gefühlt ...
Bitte warten ..
Neuester Wissensbeitrag
Humor (lol)

Linkliste für Adventskalender

(3)

Information von nikoatit zum Thema Humor (lol) ...

Ähnliche Inhalte
Outlook & Mail
gelöst Email Anhänge speichern VB Script aber nur bestimmte Dateitypen (Outlook) (4)

Frage von LindeUnimog zum Thema Outlook & Mail ...

VB for Applications
gelöst VB Script rekursiv statt nur ein Ordner (4)

Frage von Saschaaaaa zum Thema VB for Applications ...

VB for Applications
gelöst VB Script nach gefundenem Wort die nächsten 4 Zeichen ersetzten (2)

Frage von deutsch73 zum Thema VB for Applications ...

Visual Studio
gelöst VB.Net - Problem mit Umleitung der Standard-Ausgabe (4)

Frage von emeriks zum Thema Visual Studio ...

Heiß diskutierte Inhalte
Exchange Server
gelöst Exchange 2010 Berechtigungen wiederherstellen (20)

Frage von semperf1delis zum Thema Exchange Server ...

Windows Server
DHCP Server switchen (20)

Frage von M.Marz zum Thema Windows Server ...

Hardware
gelöst Negative Erfahrungen LAN-Karten (19)

Frage von MegaGiga zum Thema Hardware ...

Exchange Server
DNS Einstellung - zwei feste IPs für Mailserver (15)

Frage von ivan0s zum Thema Exchange Server ...