Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Funktioniert nicht
Autor: Zeke
Datum: 17.06.02 10:59
Also zuerst die Deklarationen: Private Declare Function CountFiles Lib "VBEX32.DLL" _ Alias "VBFILECOUNT" ( _ ByVal sPath As String, _ bSubFolders As Integer, _ ByVal sFilter As String, _ nBytes As Currency) As Long Private Declare Function GetFileList Lib "VBEX32.DLL" _ Alias "VBFILELIST" ( _ ByVal sPath As String, _ bSubFolders As Integer, _ ByVal sFilter As String, _ sFiles() As String, _ nBytes As Currency) As Long Und dann die Funktion, so wie in der Hilfe zur VBEx32.dll: Dim lCount As Long Dim nBytes As Currency ' zunächst Anzahl Dateien ermitteln lCount = CountFiles("c:", 1, "*.mp3", nBytes) ' Array dimensionieren ReDim sFiles(lCount) As String ' Dateinamen ermitteln lCount = GetFileList("c:", 1, "*.mp3", sFiles(), nBytes) MsgBox CStr(lCount) & " Dateien, Gesamtgröße: " & CStr(nBytes) & " Bytes" In der Hilfe ist ein kleiner Fehler, dort steht lCount = GetFileList("c:", 0, "*.*", sFolders(), nBytes) müsste doch aber sFiles() sein?

Alle Dateien eines bestimmten Typs suchen	48	Zeke	17.06.02 10:13
Lösung: (wie immer) VBEx32.DLL	422	Dieter	17.06.02 10:18
Re: Lösung: (wie immer) VBEx32.DLL	25	Zeke	17.06.02 10:25
Re: Funktioniert nicht	30	Zeke	17.06.02 10:48
Re: Funktioniert nicht	347	Dieter	17.06.02 10:53
Re: Funktioniert nicht	26	Zeke	17.06.02 10:59
Re: Funktioniert nicht	316	Dieter	17.06.02 11:28
Re: Funktioniert nicht	20	Zeke	17.06.02 11:37
Re: Funktioniert nicht	329	Dieter	17.06.02 12:32
Re: Funktioniert nicht	22	Zeke	17.06.02 12:33
Re: Funktioniert nicht	339	Dieter	18.06.02 19:10

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen