Primeiro vamos raciocinar quanto ao que é mover arquivo.
- Onde estará localizado esse arquivo.
Se for em um setup (O que geralmente é usado para instalação do programa), não será preciso fazer nada. basta que na configuraçào do instalador vc coloque esse aruivo na lista e diga para onde ele irá.
Por acaso vc está usando algum instalador???
- Se não estive usando o instalador e quiser mover um arquivo e criar ou não uma pasta, basta seguir os seguintes passos:
Função para verificação se aruivo ou diretorio existe ou não:
Function File_Exists(ByVal PathName As String, Optional Directory As Boolean) As Boolean
If PathName <> "" Then
If IsMissing(Directory) Or Directory = False Then
File_Exists = (Dir$(PathName) <> "")
Else
File_Exists = (Dir$(PathName, vbDirectory) <> "")
End If
End If
End Function
caso não use a seguinte sub:
Dim fso, aso, asr
asr= Inputbox("Digite o caminho completo da Pasta que deseja criar(inclusive o nome):", "Criar Pasta")
Set fso= WScript.CreateObject("Scripting.FileSystemObject")
Set aso= fso.CreateFolder(asr)
Apos isso é só vc copiar o arquivo de sua passta para a pasta criada:
FileCopy CaminhoDoArquivoDeOrigem, CaminhoDoArquivoDeDestino
Teste e nos diga se funciona a contento...
"If funcionou then
Bloqueie o tópico
Else
Poste Novamente
endif"
