MOVER FICHEIROS
Viva pessoal, tenho uma dúvida básica...como faço para mover ficheiros de uma pasta para outra. Com a possibilidade de usar wildcards.
Obrigado
Obrigado
que tal o filecopy e depois o Kill ?
Não seria melhor o MoveFile? 
Obrigado, mas podiam-me ajudar a usar esses comandos?
FELIPEA
dá onde vc tirou esse MoveFile ?
das funções do VB ?
se for axo q so tem no seu vb
dá onde vc tirou esse MoveFile ?
das funções do VB ?
se for axo q so tem no seu vb
Dim Origem As String
Dim Destino As String
Origem = "C: este.txt"
Destino = "D: estecopiado.txt"
FileCopy Origem, Destino
Kill Origem
Obrigado Clayton, mas esse código apenas funciona para um ficheiro de cada vez. Eu preciso de copiar vários com a mesma extensão, usando wildcards.
Exemplo: no DOS eu faço assim - move c:\*.txt d:\
Não haverá forma de realmente mover ÂÂÂ'de uma só vez, sem têr de copiar e depois apagar?
Exemplo: no DOS eu faço assim - move c:\*.txt d:\
Não haverá forma de realmente mover ÂÂÂ'de uma só vez, sem têr de copiar e depois apagar?
Mova pelo DOS então
Ou então terá que fazer um loop dentro da pasta e testar arquivo por arquivo para testar.
O MoveFile é uma função da Biblioteca do Microsoft Scripting Runtime, ou seja, vc pode ir em Project/ References / Microsoft Scripting Runtime.
[S71]
Call ("Shell Move C:\*.txt d:\")Ou então terá que fazer um loop dentro da pasta e testar arquivo por arquivo para testar.
O MoveFile é uma função da Biblioteca do Microsoft Scripting Runtime, ou seja, vc pode ir em Project/ References / Microsoft Scripting Runtime.
Dim FSO as FileSystemObject
Set FSO = New FileSystemObject
FSO.MoveFile (Origem,Destino)
set fso = nothing[S71]
Corrigindo o primeiro código [S55]
No more...
Call Shell("Move C:\*.txt d:\")No more...
Obrigado Thiago, mas não funcionou....dá sempre "file not found" e não é por não têr ficheiros .txt na pasta. Penso que o erro deve-se ao Shell tentar chamar o Move. Não sei......... alguém pode ajudar?
'adicione a referencia Microsoft Script RunTime
Dim Arquivo As FileSystemObject
Set Arquivo = New FileSystemObject
Call Arquivo.MoveFile("C:\ori\*.*", "C:\desti\")
Set Arquivo = Nothing
faz assim isso resolve o seu problema
Tópico encerrado , respostas não são mais permitidas