title image


Smiley Re: String zerschneiden, aber wie?
Hallo



Private Function OnlyFile(sPath As String) As String

Dim iCharPos As Integer

iCharPos = InStrRev(sPath, "\")

If iCharPos > 0 Then

sPath = Mid(sPath, iCharPos + 1)

Else

sPath = ""

End If

OnlyFile = sPath

End Function



Gruss THORAX

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: