Retornar o nome do arquivo


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Retornar o nome do arquivo

Josefh Hennyere

SALVADOR
BA - BRASIL

Postada em 18/10/2004 01:37 hs

O caractere é eliminado e é retornado todo conteúdo à direita do caractere eliminado Ex.:

C:arquivo.txt°

retorna

C:arquivo.txt

ghost_jlp

SÃO PAULO
SP - BRASIL

Postada em 18/10/2004 13:28 hs

Bom, tenta assim então...

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, ".") + 3) 'modifiquei aqui

Else
    getlongfilepath = ""
End If
GetLongFile = getlongfilepath
End Function

A função só falha ao tentar entrar com string tipo:

"HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionSharedDLLsC:Arquivos de programasMicrosoft OfficeOffice101046MSOHELP.EXE65¨.%1"

Onde o problema é o 2º ponto... (1º pto)->.EXE65¨(2ºpto)->.%1"

Mas mesmo com nome de pastas q contenham pto ela funciona, por exemplo

C:Arquivoswww.abc.comfile.exe,1*6

retorna assim:

C:Arquivoswww.abc.comfile.exe

Josefh Hennyere

SALVADOR
BA - BRASIL

Postada em 19/10/2004 05:15 hs

Sabemos que existem extensões que possuem mais de três caracteres, então ao selecionar "C:Arquivo.manifest" , esta função retornará "C:Arquivo.man". Ao verificar se o arquivo "C:Arquivo.man" existe, uma outra função retornará que não, porque o caminho e arquivo estão escritos errados. Seria "C:Arquivo.manifest".

Temos duas opções:

1ª identificar o arquivo e sua extensão eliminando caracteres que não existe

C:Arquivo.manifest,"204"

Elimina = ,"204"

Retorna = C:Arquivo.manifest

2ª identificar o arquivo como nulo (="") quando possuir qualquer caractere além de um número determinado.

Exemplo:

Se definirmos o valor de sua extensão como "3", ele retornará apenas arquivos com extensão = 3 (exe, ocx, dll) sendo arquivos como "MPEG" nulos por possuirem um valor de extensão maior que "3". Neste caso "MPEG" possui 4 letras.

COMO COLOCAR ISTO NA PRÁTICA ????

Josefh Hennyere

SALVADOR
BA - BRASIL

Postada em 24/10/2004 07:13 hs

Estou precisando desta resposta

Josefh Hennyere

SALVADOR
BA - BRASIL

Postada em 27/10/2004 01:23 hs

Estou precisando desta resposta

Página(s): 2/2 « ANTERIOR

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR