FSO, mover arquivos entre pastas

[rsegovia 0]

Bom dia galera, preciso mover e renomear os arquivos de uma pasta para outra dentro do mesmo servidor, alguem sabe como fazer isso ?obrigado..rogério

[kauebranco 0]

objFSO.MOVEFILE (CaminhoDeOndeEleEsta,CaminhoPraOndeEleVai,true)

[rsegovia 0]

nesse CaminhoPraOndeEleVai, eu defino a pasta somente, ou a pasta + novonome ?

[kauebranco 0]

naum .. você coloca o caminho normal dele com o nome atual dele ... depois de ter movido o arquivo pro novo diretório você o renomeia com esse código :Set OBJRenomear = FSO.GetFile(CaminhoOndeEstaOArquivo)OBJRenomear.Name = AquiVemONovoNomeDoArquivo"Set OBJRenomear = Nothing

[rsegovia 0]

não funcionou, nao achou a propriedade movefileWrong number of arguments or invalid property assignment: 'MOVEFILE' Set objFSO = server.CreateObject("scripting.FileSystemObject") objFSO.MOVEFILE movevelho,movenovo,true

[rsegovia 0]

consegui kra, vlw... :D

[Mário Monteiro 179]

veja em http://www.sloppycode.net/fso/

[kauebranco 0]

consegui kra, vlw... :D

<{POST_SNAPBACK}>

o que você fez de diferente que deu certo ??

[rsegovia 0]

vai ai a função q eu fiz

 

Sub MoveArquivo(CaminhoVelho, CaminhoNovo, NomeVelho, NomeNovo)	dim objFSO	set objFSO = server.CreateObject("scripting.FileSystemObject")	if trim(NomeVelho) <> trim(NomeNovo) then  Set OBJRenomear = objFSO.GetFile(CaminhoVelho & "\" & NomeVelho)  OBJRenomear.Name = NomeNovo	end if		if objFSO.FileExists(CaminhoNovo & "\" & NomeNovo) then    objFSO.DeleteFile CaminhoNovo & "\" & NomeNovo	end if	objFSO.MoveFile CaminhoVelho & "\" & NomeNovo, CaminhoNovo & "\" & NomeNovoEnd Sub

[kauebranco 0]

Parabens ..bem legal sua SUB ... só aconselho a você antes de sair da SUB destruir o objFSO com :Set objFSO = NothingFlwww

[rsegovia 0]

putz vlw cara, esqueci de destruir o obj