Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Kann mir jemand helfen??
Autor: Chrisz
Datum: 02.12.02 21:03
Bin mir nicht sicher, aber was haltet ihr davon: Public Function GetNextFile(ByVal sPath As String) As String Dim sFile As String Dim lNumber As Long Dim sData() As String ' jetzt Nummer prüfen Do sFile = sPath & "A" & Format$(lNumber, "02###") & ".img" If Dir$(sFile) = "" Then Exit Do lNumber = lNumber + 1 Loop sData = Split(sFile, "\") Label1.Caption = sData(3) GetNextFile = sFile End Function Private Sub Timer1_Timer() sfilename = GetNextFile("c:\Handi\Ang\") 'Label1.Caption = sfilename End Sub als ergebnis kommt : A02228.img herraus, aber wie bekomme ich jetzt noch das .img weg??

Kann mir jemand helfen??	160	Chrisz	02.12.02 17:03
Re: Kann mir jemand helfen??	330	Dieter	02.12.02 20:06
Re: Kann mir jemand helfen??	91	Chrisz	02.12.02 20:26
Re: Kann mir jemand helfen??	89	Webstar2000de	02.12.02 20:58
Re: Kann mir jemand helfen??	90	Chrisz	02.12.02 21:03
Re: Kann mir jemand helfen??	328	Brian	02.12.02 21:15
Re: Kann mir jemand helfen??	84	Chrisz	02.12.02 21:43
Re: Kann mir jemand helfen??	328	Brian	02.12.02 22:23

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