avrei bisogno di una piccola funzione

[optime]

x Mabi.

e' ovvio che non ti sei preso la briga di provare il mio codice... ti restituisce esattamente il path, non il nome del file.

ctrl, ctrl

[sebamix]

Originariamente inviato da optime
madonna che giri... vi siete dimenticati che meno si scrive e meglio e'?

basta una istruzione una

Dim a as string, b as string

a = "C:\l'esempio che vuoi\file.est"
b = Left(a, InStrRev(a, "\"))

[FAGIANO MODE ON]

Più scrivo più pagano

[FAGIANO MODE OFF]

[sebamix]

Okkey... tutta la pappardella di prima diventa

Public Function GetFilePath(strFile As String, Optional blnIncludeEndingSlash As Boolean = False) As String
    If Len(strFile) > 0 Then GetFilePath = Left(strFile, InStrRev(strFile, "\") - 1) & IIf(blnIncludeEndingSlash = True, "\", "")
End Function

[Mabi]

X optime:

Hai ragione, non avevi usato la InStr ma la InStrRev.
Non me n'ero accorto. E' anche vero però, che in VB5 non ho questa funzione