TRUNCAR NOME DE DIRETORIOS EXTENSO
Bom dia - pessoal
Fiz um programa de backup, só que não aceita trabalhar com nomes de pastas com mais de 11 caracteres, isto é por causa do MSDOS.
Este é um exemplo de nome de pasta extensa
C:\Arquivos de programas\Bluware\Dados
Só que para o MSDOS fica assim
C:\ARQUIV~1\BLUWARE\DADOS\
Gostaria de saber se tem como trabalhar com nomes de pastas extensa.
Obrigado,
Elmo
Fiz um programa de backup, só que não aceita trabalhar com nomes de pastas com mais de 11 caracteres, isto é por causa do MSDOS.
Este é um exemplo de nome de pasta extensa
C:\Arquivos de programas\Bluware\Dados
Só que para o MSDOS fica assim
C:\ARQUIV~1\BLUWARE\DADOS\
Gostaria de saber se tem como trabalhar com nomes de pastas extensa.
Obrigado,
Elmo
O programa foi escrito em que linguagem?
Tecla - o programa está escrito em Visual Basic 6, utilizo o ARJ32 como compactador
Já tentou usar a AZIP32.DLL?
Compactando Arquivos no VB
Compactando Arquivos no VB
Tecla - com o PKZIP já está feito em meu sistema de backup.
Agora gostaria de colocar o COMPACTADOR e DESCOMPACTADOR com o ARJ32, estou utilizando as seguintes linha de comando:
Instruções para compactar
compactador = [Ô]C:\ARJ32\ARJ32.EXE[Ô]
Destino1 = Txt_DesCompactar.Text + Nome_Zipado.Text [ô]+ [Ô].ARJ[Ô]
Arquivo1 = Txt_Compactar.Text + [Ô]*.* /Y[Ô]
Linha1 = compactador & [Ô] a -hm [Ô] & Destino1 & [Ô] [Ô] & Arquivo1
Compri1 = Shell(Linha1, vbNormalFocus)
lblProgresso = [Ô]Fim Compactação[Ô]
Instruções para descompactar
compactador = [Ô]C:\ARJ32\ARJ32.EXE[Ô]
Destino2 = Rst_ArqFtOrg.Text + Rst_ArqFtNom.Text
Arquivo2 = Txt_ResFot.Text
Linha2 = compactador & [Ô] x -vva [Ô] & Destino2 & [Ô] [Ô] & Arquivo2
Compri2 = Shell(Linha2, vbNormalFocus)
lblProgresso = [Ô]Fim Descompactação[Ô]
lblProgresso.Refresh
Como tenho que fazer para utilizar o ARJ32 para pastas com nomes extensos???
Agora gostaria de colocar o COMPACTADOR e DESCOMPACTADOR com o ARJ32, estou utilizando as seguintes linha de comando:
Instruções para compactar
compactador = [Ô]C:\ARJ32\ARJ32.EXE[Ô]
Destino1 = Txt_DesCompactar.Text + Nome_Zipado.Text [ô]+ [Ô].ARJ[Ô]
Arquivo1 = Txt_Compactar.Text + [Ô]*.* /Y[Ô]
Linha1 = compactador & [Ô] a -hm [Ô] & Destino1 & [Ô] [Ô] & Arquivo1
Compri1 = Shell(Linha1, vbNormalFocus)
lblProgresso = [Ô]Fim Compactação[Ô]
Instruções para descompactar
compactador = [Ô]C:\ARJ32\ARJ32.EXE[Ô]
Destino2 = Rst_ArqFtOrg.Text + Rst_ArqFtNom.Text
Arquivo2 = Txt_ResFot.Text
Linha2 = compactador & [Ô] x -vva [Ô] & Destino2 & [Ô] [Ô] & Arquivo2
Compri2 = Shell(Linha2, vbNormalFocus)
lblProgresso = [Ô]Fim Descompactação[Ô]
lblProgresso.Refresh
Como tenho que fazer para utilizar o ARJ32 para pastas com nomes extensos???
Kra ja usou o Componente XceedZip ?
e ideal para esse tipo de coisa
e ideal para esse tipo de coisa
colega deixe do geito que está e inclua esta linha
Name [Ô]C:\ARQUIV~1\BLUWARE\DADOS[Ô] As [Ô]C:\ARQUIVIVOS DE PROGRAMAS\BLUWARE\DADOS[Ô]
e pronto, ou seja salve com nome curto e altere o nome em seguida
Name [Ô]C:\ARQUIV~1\BLUWARE\DADOS[Ô] As [Ô]C:\ARQUIVIVOS DE PROGRAMAS\BLUWARE\DADOS[Ô]
e pronto, ou seja salve com nome curto e altere o nome em seguida
Tópico encerrado , respostas não são mais permitidas