2 DUVIDA! MATE DOIS COELHO NUMA CAJADADA SOH AQUI

USUARIO.EXCLUIDOS 17/12/2006 00:32:14
#190425
preciso de algumas coisas
se puderem me resolver algumas....

- preciso saber como faz para copiar arquivos para outro diretório silenciosamente (sem exibir o progresso do windows explorer)
- renomear todos os arquivos (alterar extenção) de uma pasta

por enquanto acho que é só, heheheheheheheh
USUARIO.EXCLUIDOS 17/12/2006 00:39:35
#190426
Achei algo aqui mas não compreendi como utilizar

Citação:

Sub renomear_arquivos_de_uma_pasta(nome_pasta As String)
Dim Pasta As Folder
Dim subpasta As Folder
Dim arq As file
Dim fso As New FileSystemObject
pos = Format(1, "")
For Each arq In fso.GetFolder(nome_pasta).Files
ext = Split(arq.Name, ".")
arq.Name = pos + "." + ext(1)
pos = Format(Val(pos) + 1, "")
Next
End Sub


ESLEYSANCHES 17/12/2006 01:09:51
#190428 Resposta escolhida
Para copiar arquivos silenciosamente:

FileCopy("C:    este.txt"), ("D:    este.txt")


Para renomear use o comando Name que pode ser usado para mover arquivos também, olha como renomear:

Name ("C:    este.txt") As ("C:    este.exe")

^^Acima ele altera o nome do arquivo e sua extenção, você poderia move-lo usando o mesmo alterando apenas o diretorio
Name ("C:    este.txt") As ("C:\Windows    este.exe")

Ela vai ser movido para C:\Windows mais com o nome de teste.exe

Espero que te ajude !!
Abraços !!
ESLEYSANCHES 17/12/2006 01:15:37
#190429
Para renomear todos os arquivos de uma pasta com a extenção .txt por exemplo para .exe use um comandinho DOS simples assim:

shell("rename C:\*.txt *.exe"),vbhide


Ele vai renomear todos os arquivos com a extenção .txt para .exe

Abraços e espero que te ajude !!
FUUIII
USUARIO.EXCLUIDOS 17/12/2006 01:49:00
#190430
opa o do FileCopy dei mancada pois já tinha esse comando aqui :/
mas valeu mesmo assim! desculpa incomodar

e o de renomear tudo da pasta não sei usar, tentei algo como
Citação:

Private Sub Command1_Click()
Shell ("rename C:\*.txt *.lol")
End Sub



mas da erro (File not found)

à'brigadoo
ESLEYSANCHES 17/12/2006 02:00:46
#190431
Ops, use assim:

Shell("CMD /c rename c:\*.txt *.lol"),VbHide


Veja se funfa agora amigão !!
Abraços !!
USUARIO.EXCLUIDOS 17/12/2006 13:16:30
#190441
Muito obrigado pela ajuda aee

mas assim, funfo e não funfo
com o seu não, mas assim funfa
Shell ("CMD /c rename *.txt *.lol")


o problema é q não sei muita coisa no VB (faço meus programas, mas nada avançado), queria algo bem automatizado, mas com isso vou ter um bom trabalho para chegar perto do que eu quero eeheh

como é comando de DOS a partir daqui eu me viro!
Obrigadoo!

(em breve estou ai com mais dúvidas)
Tópico encerrado , respostas não são mais permitidas
Voltar