|
|
Postada em 07/05/2004 14:30 hs
gente , boa tarde ! preciso de uma função que retorne , somente o nome do arquivo e o que vou passar pra função é ex.: c:\tmp\teste.txt ... é possivel ? |
|
|
|
|
|
|
|
Postada em 07/05/2004 14:42 hs
oLÁ ! Ta ná mão Function Arquivo (Caminho as String) as String Dim L as String Dim T as Single T = len(caminho) Arquivo = "" Do T = Right(Caminho,t,1) if T <> "/" then Arquivo = Arquivo & T
end if t = t-1
Loop while T >=1 End Function
 Eu sou o alfa e o ômega, o princípio e o fim, diz o Senhor, que é, e que era, e que há de vir, o Todo Poderoso. (Ap 1.8) 
|
|
|
|
|
|
Postada em 07/05/2004 14:51 hs
xí , deu erro .... "wrong number of arguments" na função RIGHT pq ? |
|
|
|
|
|
Postada em 07/05/2004 17:57 hs
Aqui vai uma função um pouco mais simples: Function Arquivo(Caminho As String) As String
Dim x As Integer
x = InStrRev(Caminho, "\")
If x > 0 Then
Arquivo = Mid(Caminho, x + 1)
Else
Arquivo = Caminho
End If End Function |
|
|
|
