<font color=green>' Langen Dateinamen ermitteln</font>
Public Function GetLongName(ByVal sShortName As String) As String
  Dim sOrdner() As String
  Dim sLongName As String
  Dim I As Integer
  Dim sTemp As String
  Dim iCount As Integer
 
  sLongName = ""
  sOrdner = Split(sShortName, "\")
  iCount = UBound(sOrdner)
 
  For I = iCount To 1 Step -1
    If I = iCount Then
      sTemp = Dir$(sShortName)
      sLongName = sTemp + sLongName
    Else
      sTemp = Dir$(sShortName, vbDirectory + vbHidden)
      sLongName = sTemp & "\" & sLongName
    End If
    sShortName = Left$(sShortName, Len(sShortName) - Len(sOrdner(I)) - 1)
  Next I
  sLongName = sOrdner(0) & "\" & sLongName
 
  GetLongName = sLongName
End Function