Function der finder filnavn

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

Public Function VBStripPath(ByVal sPath As String) As String
    PathStripPath sPath
    VBStripPath = sPath
End Function

Begge dele skal være i det samme modul

PS. Krav:

Windows 2000 (or Windows NT 4.0 with Internet Explorer 4.0 or later)
eller
Windows 98 (or Windows 95 with Internet Explorer 4.0 or later)

Public Function filnavn(strFilnavn As String) As String
  While InStr(strFilnavn, \"\\\") > 1
    strFilnavn = Mid(strFilnavn, InStr(strFilnavn, \"\\\") + 1)
  Wend
  filnavn = strFilnavn
End Function

Public Function test()
  MsgBox filnavn(\"Dette\\er en\\test\")
End Function

Har ingen krav !!!

ProAccess>> Hvem kører med mindre end IExplorer 4.0 :-)

>Benny Tordrup: Se det er et godt spørgsmål, jeg prøver bare at give en så generel funktion som muligt, hvordan vil det egentlig gå ved brug af Netscape eller opera i stedet for IE4.0?

Blot en kommentar....

Ved at bruge FileSystemObject, får man en masse af disse funktioner forærende.

eks:
Function ShowFileInfo(filespec as string) as String
    Dim fs
    Set fs = CreateObject(\"Scripting.FileSystemObject\")
    ShowFileInfo = fs.GetFileName(filespec)
end function

ciao
/Thomas