Private Sub Form_Load()
Dim Datei As String
Datei = "C:\testg.txt"
Datei = FileDateTime(Datei)
Datei = GetDate(Datei, True)
Me.Caption = Datei
End Sub
 
Public Function GetDate(DatumUndZeit As String, IsDatum As Boolean)
Dim strString, strRight, strMid, strOutput, strDatum As String
Dim strLen, i As Integer
strLen = Len(DatumUndZeit)
For i = 0 To strLen
    strRight = Right(DatumUndZeit, i)
    strMid = Mid(strRight, 1, 1)
    If strMid = " " Then
        If IsDatum = False Then
            strOutput = Replace(strOutput, " ", "")
            GetDate = strOutput
            strOutput = ""
        Else
            strDatum = Replace(DatumUndZeit, " " & strOutput, "")
            GetDate = strDatum
            strOutput = ""
        End If
        Exit Function
    Else
        strOutput = strMid & strOutput
    End If
Next i
End Function

____________________________________
Internet-Relay-Messenger IRM.
http://forum.spiel-wiese.net Neuste Version ist die Beta 2.3