Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Dateien im Ordner
Autor: SEV/Fummler
Datum: 02.02.03 23:07
Lass dich nicht volllabbern! Private Sub Command1_Click() Dim Files$, Pfad$ Pfad$ = "c:\" If Right$(Pfad$, 1) <> "\" Then Pfad$ = Pfad$ + "\" Files$ = Dir(Pfad$ & "*.*", vbNormal Or vbReadOnly _ Or vbHidden Or vbSystem Or vbArchive Or vbDirectory) Do While Files$ <> "" If FolderExists(Pfad$ + Files$) = False Then List1.AddItem Files$ Files$ = Dir Loop End Sub Public Function FolderExists(ByVal sFolder As String) As Boolean On Local Error Resume Next Dim F As Integer sFolder = Trim$(sFolder) If Right$(sFolder, 1) <> "\" Then _ sFolder = sFolder & "\" F = FreeFile Open sFolder & "v5edxtest.tamp" For Output As #F FolderExists = (Err = 0) Close #F Kill sFolder & "v5edxtest.tamp" On Local Error GoTo 0 End Function

Dateien im Ordner	86	Hutze	02.02.03 16:21
Re: Dateien im Ordner	184	Marcus W	02.02.03 18:45
Re: Dateien im Ordner	45	Hutze	02.02.03 21:48
Re: Dateien im Ordner	36	Heinz	02.02.03 22:04
Re: Dateien im Ordner	49	SEV/Fummler	02.02.03 23:07
Re: Dateien im Ordner	43	Hutze	03.02.03 10:54

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