title image


Smiley Re: Dateiname ohne Pfad auslesen
Hi,



mit einer UDF z.B.:



Option Explicit

Function Name_pur(Dateiname As String) As String

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

Name_pur = fso.GetFileName(Dateiname)

End Function

'==================================================

'Aufruf:

'==================================================

Sub teste()

MsgBox Name_pur("C:\Testdatei.txt")

End Sub



mfg xla

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: