|
|
Postada em 16/10/2004 01:40 hs
Utilizo a função abaixo para retornar o nome e o path do arquivo: Function GetLongFile(Filename As String)
Dim lPos As Long
lPos = InStrRev(Filename, ":")
If lPos > 0 Then
GetLongFilePath = Mid(Filename, lPos - 1, 255)
Else
GetLongFilePath = ""
End If
End Function
Assim se escrever: HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionSharedDLLsC:Arquivos de programasMicrosoft OfficeOffice101046MSOHELP.EXE,"1" Ele retorna: C:Arquivos de programasMicrosoft OfficeOffice101046MSOHELP.EXE,"1" O problema é que se utilizar uma função para verificar se o arquivo existe, ela retorna "false" porque a parte ,"1" que segue depois da extensão .EXE é apenas uma referência do registro do windows, e não faz parte do arquivo. Ou seja ele tem que retornar C:Arquivos de programasMicrosoft OfficeOffice101046MSOHELP.EXE Josefh Hennyere S Miranda |
|
|
|
|
|
|
|
Postada em 16/10/2004 18:00 hs
Por favor alguém sabe responder? |
|
|
|
|
|
Postada em 16/10/2004 18:40 hs
Me diga, a resposta vem com aspas no final assim: C:Arquivos de programasMicrosoft OfficeOffice101046MSOHELP.EXE,"1" ou assim: C:Arquivos de programasMicrosoft OfficeOffice101046MSOHELP.EXE,1 ????? |
|
|
|
|
|
Postada em 17/10/2004 06:05 hs
Geralmente aparece das dus formas |
|
|
|
|
|
Postada em 17/10/2004 22:54 hs
Nem parei pra pensar se existe forma mais fácil mas procurei não mexer muito na tua função pra não te atrapalhar, será q assim serve? Function GetLongFile(Filename As String)
Dim lPos As Long
lPos = InStrRev(Filename, ":")
If lPos > 0 Then
getlongfilepath = Mid(Filename, lPos - 1, 255)
getlongfilepath = Left(getlongfilepath, InStrRev(getlongfilepath, ",") - 1) 'mexi aqui
Else
getlongfilepath = ""
End If
End Function Acrescentei uma linha... segundo o seu exemplo volta como vc quer mas não sei em relação a todo tipo de string q vai entrar nesta função... Tentei... |
|
|
|
|
|
Postada em 18/10/2004 01:34 hs
Olha, fiz assim e funcionou Function GetLongFile(Filename As String)
On Error Resume Next
Dim lPos As Long
Dim MaxChar As Integer
lPos = InStrRev(Filename, ":")
If lPos > 0 Then
GetLongFile = Mid(Filename, lPos - 1, 260)
If Right(GetLongFile, InStr(GetLongFile, ".")) Then
If Right(GetLongFile, 1) = "!" Then _
GetLongFile = Left(GetLongFile, InStrRev(GetLongFile, "!") - 1) 'acrescentei esta linha
If Right(GetLongFile, 1) = "@" Then _
GetLongFile = Left(GetLongFile, InStrRev(GetLongFile, "@") - 1) 'acrescentei esta linha
If Right(GetLongFile, 1) = "#" Then _
GetLongFile = Left(GetLongFile, InStrRev(GetLongFile, "#") - 1) 'acrescentei esta linha
If Right(GetLongFile, 1) = "$" Then _
GetLongFile = Left(GetLongFile, InStrRev(GetLongFile, "$") - 1) 'acrescentei esta linha
If Right(GetLongFile, 1) = "%" Then _
GetLongFile = Left(GetLongFile, InStrRev(GetLongFile, "%") - 1) 'acrescentei esta linha
If Right(GetLongFile, 1) = "¨" Then _
GetLongFile = Left(GetLongFile, InStrRev(GetLongFile, "¨") - 1) 'acrescentei esta linha
If Right(GetLongFile, 1) = "&" Then _
GetLongFile = Left(GetLongFile, InStrRev(GetLongFile, "&") - 1) 'acrescentei esta linha
If Right(GetLongFile, 1) = "*" Then _
GetLongFile = Left(GetLongFile, InStrRev(GetLongFile, "*") - 1) 'acrescentei esta linha
If Right(GetLongFile, 1) = "-" Then _
GetLongFile = Left(GetLongFile, InStrRev(GetLongFile, "-") - 1) 'acrescentei esta linha
If Right(GetLongFile, 1) = "=" Then _
GetLongFile = Left(GetLongFile, InStrRev(GetLongFile, "=") - 1) 'acrescentei esta linha
If Right(GetLongFile, 1) = "+" Then _
GetLongFile = Left(GetLongFile, InStrRev(GetLongFile, "+") - 1) 'acrescentei esta linha
If Right(GetLongFile, 1) = "," Then _
GetLongFile = Left(GetLongFile, InStrRev(GetLongFile, ",") - 1) 'acrescentei esta linha
If Right(GetLongFile, 1) = "^" Then _
GetLongFile = Left(GetLongFile, InStrRev(GetLongFile, "^") - 1) 'acrescentei esta linha
If Right(GetLongFile, 1) = ";" Then _
GetLongFile = Left(GetLongFile, InStrRev(GetLongFile, ";") - 1) 'acrescentei esta linha
If Right(GetLongFile, 1) = "|" Then _
GetLongFile = Left(GetLongFile, InStrRev(GetLongFile, "|") - 1) 'acrescentei esta linha
If Right(GetLongFile, 1) = "<" Then _
GetLongFile = Left(GetLongFile, InStrRev(GetLongFile, "<") - 1) 'acrescentei esta linha
If Right(GetLongFile, 1) = ">" Then _
GetLongFile = Left(GetLongFile, InStrRev(GetLongFile, ">") - 1) 'acrescentei esta linha
If Right(GetLongFile, 1) = " " Then _
GetLongFile = Left(GetLongFile, InStrRev(GetLongFile, " ") - 1) 'acrescentei esta linha
If Right(GetLongFile, 1) = "(" Then _
GetLongFile = Left(GetLongFile, InStrRev(GetLongFile, "(") - 1) 'acrescentei esta linha
If Right(GetLongFile, 1) = ")" Then _
GetLongFile = Left(GetLongFile, InStrRev(GetLongFile, ")") - 1) 'acrescentei esta linha
If Right(GetLongFile, 1) = "]" Then _
GetLongFile = Left(GetLongFile, InStrRev(GetLongFile, "]") - 1) 'acrescentei esta linha
If Right(GetLongFile, 1) = "}" Then _
GetLongFile = Left(GetLongFile, InStrRev(GetLongFile, "}") - 1) 'acrescentei esta linha
If Right(GetLongFile, 1) = "º" Then _
GetLongFile = Left(GetLongFile, InStrRev(GetLongFile, "º") - 1) 'acrescentei esta linha
If Right(GetLongFile, 1) = "ª" Then _
GetLongFile = Left(GetLongFile, InStrRev(GetLongFile, "ª") - 1) 'acrescentei esta linha
If Right(GetLongFile, 1) = "´" Then _
GetLongFile = Left(GetLongFile, InStrRev(GetLongFile, "´") - 1) 'acrescentei esta linha
If Right(GetLongFile, 1) = "`" Then _
GetLongFile = Left(GetLongFile, InStrRev(GetLongFile, "`") - 1) 'acrescentei esta linha
If Right(GetLongFile, 1) = "¬" Then _
GetLongFile = Left(GetLongFile, InStrRev(GetLongFile, "¬") - 1) 'acrescentei esta linha
If Right(GetLongFile, 1) = "¢" Then _
GetLongFile = Left(GetLongFile, InStrRev(GetLongFile, "¢") - 1) 'acrescentei esta linha
If Right(GetLongFile, 1) = "¹" Then _
GetLongFile = Left(GetLongFile, InStrRev(GetLongFile, "¹") - 1) 'acrescentei esta linha
If Right(GetLongFile, 1) = "²" Then _
GetLongFile = Left(GetLongFile, InStrRev(GetLongFile, "²") - 1) 'acrescentei esta linha
If Right(GetLongFile, 1) = "³" Then _
GetLongFile = Left(GetLongFile, InStrRev(GetLongFile, "³") - 1) 'acrescentei esta linha
If Right(GetLongFile, 1) = "£" Then _
GetLongFile = Left(GetLongFile, InStrRev(GetLongFile, "£") - 1) 'acrescentei esta linha
End If
Else
GetLongFile = ""
End If
End Function
Se o primeiro caractere à direita do arquivo for algum desses caracteres mensionados, o caractere é eliminado. Caso tenha uma outra forma, mais simples, por favor postar. |
|
|
|
|
