title image


Smiley Re: Dateiname ohne Pfad auslesen
hiho









Sub zero()

With Application.FileSearch

    .LookIn = "C:\My Documents\"

    .SearchSubFolders = True

    .Filename = "*.xls"

    If .Execute() > 0 Then

        For i = 1 To .FoundFiles.Count

            gefFileName = Right(.FoundFiles(i), Len(.FoundFiles(i)) - InStrRev(.FoundFiles(i), "\"))

        Next i

    End If

End With

End Sub











meinst du sowas?
Feedback nicht vergessen ! Gutes gelingen wünscht Chris

I didn't write this; a very complex macro did.

0110110001101001011001010110001001100101001000000110011101110010111111001101111101100101001000000110001101101000011100100110100101110011

geschrieben von


Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: