Bei der Arbeit mit Dateien muß ein Dateiname oft in einen Pfad und den eigentlichen Dateinamen zerlegt werden.
Diese Zerlegung des Dateinamens erleichtert die Prozedur DateinameZerlegen.
Die Prozedur hat den folgenden Aufbau:
Sub DateinameZerlegen(PfadName As String, Pfad As String, Name As String)
Dim pos As Integer
Dim i As Integer
pos = -1
'Backslash suchen
For i = Len(PfadName) To 1 Step -1
If Mid(PfadName, i, 1) = "\" Then pos = i
Exit For
End If
Next i
'Zerlegen
If pos <> -1 Then
Pfad = Left(PfadName, pos - 1) Name = Right(PfadName, Len(PfadName) - pos)
Else
Name = PfadName
End If
End Sub
Beim Start übergeben Sie der Prozedur den kompletten Namen der Datei inklusive dem Pfad. Außerdem übergeben Sie zwei leere Variablen, die anschließend das Ergebnis aufnehmen.