tegn i string.

I et modul:

Private Declare Sub PathStripPath Lib "shlwapi.dll" Alias "PathStripPathA" (ByVal pszPath As String)

Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long

Function VBPathStripPath(ByVal sPath As String, IncludeExtension As Boolean) As String
    On Error Resume Next
     
    If Not IncludeExtension Then PathRemoveExtension sPath
    PathStripPath sPath
    VBPathStripPath = Left$(sPath, lstrlen(sPath))
End Function

FileName = VBPathStripPath(1)

FileName = VBPathStripPath(1, True)

og så lige noget samle, og det skal bruges i et script

Script? Er du ikke i Visual Basic?

Eller for rene VB'er

Dim iPos as integer

ipos = instrrev(strengen, "\")

sStripped = mid(strengen, iPos + 1)

Path er jo så (i VB-løsningen)

left(strengen,iPos)

så samleren er jo nem nok...

fint nok... Det virker med

Dim iPos as integer
ipos = instrrev(strengen, "\")
sStripped = mid(strengen, iPos + 1)

så har jeg fil navnet i sStripped... Men jeg vil også gerne have det der er før. Er det så mid den anden vej, eller?

Yep, left(strengen,iPos) er stien - Se to svar op...

tak...