Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

mhh, bin am ende
Autor: Chrisz
Datum: 02.12.02 17:25
hallo Leute, Ich habe folgenden Code: Public Function GetNextFile(ByVal sPath As String) As String Dim sFile As String Dim lNumber As Long ' jetzt Nummer prüfen Do sFile = sPath & "A" & Format$(lNumber, "02###") & ".img" If Dir$(sFile) = "" Then Exit Do lNumber = lNumber + 1 Loop GetNextFile = sFile End Function Private Sub Timer1_Timer() sfilename = GetNextFile("c:\Handi\Ang\") Label1.Caption = sfilename End Sub Als ergebnis erhalte ich in Label 3: c:\Handi\Ang\A02228.img Ich würde es aber lieber so erhalten wollen A02228.img Oder noch besser: 02228 Kann mir da jemand helfen!! Vielen Dank....cHrIsZ

mhh, bin am ende	75	Chrisz	02.12.02 17:25
Bitte keine doppelt Postings (oT)	162	Wolfgang	02.12.02 17:27
Re: mhh, bin am ende	176	B.Jones	02.12.02 17:33
Re: mhh, bin am ende	31	Chrisz	02.12.02 20:02
Re: mhh, bin am ende	177	Dieter	02.12.02 23: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