MOVER ARQUIVO

[Ruiva]

Oi gente,

É o seguinte, preciso mover arquivos para pastas específicas mas quando rodo alguns arquivos dão a mensagem de "Arquivo movido com sucesso" porém no final da página aparece o erro:

Arquivos movidos com sucesso

Arquivos movidos com sucesso

Arquivos movidos com sucesso

Erro de tempo de execução do Microsoft VBScript erro '800a01b6'

O objeto não dá suporte para a propriedade ou método: 'fileObject.MoveFile'

/Nsconf/alterar_num_proc.asp, line 55

Vou postar o código completo aki, no início criei as pastas está funcionando perfeitamente, estão todas lá! O problema é ém mover os arquivos de um destino para o outro.

código:

<%

if clsBancoConnection.ConectaBanco() then

set objAdoConn = clsBancoConnection.Conexao()

strSQL = "select * from movimentacao_processos where anexo <> ''"

set objRs = server.createobject("ADODB.Recordset")

objRs.open strSQL, clsBancoConnection.Conexao()

while not objrs.eof

strSQLs = "select * from processo where Cod_processo ="&objrs("Cod_processo")

set objRss = server.createobject("ADODB.Recordset")

objRss.open strSQLs, clsBancoConnection.Conexao()

if not objrss.eof then

proc= objrss("Num_processo")

end if

Set ObjetoArquivo = Server.CreateObject("Scripting.FileSystemObject")

Dir ="C:\Inetpub\wwwroot\NSconf\upload\processos"&"\"&proc

'Dir ="e:\home\jcm1\web\nsconf\upload\processos"&"\"&proc

if not ObjetoArquivo.FolderExists(Dir) then

ObjetoArquivo.CreateFolder(Dir)

End If

'ObjetoArquivo.MoveFile "C:\Inetpub\wwwroot\NSconf\upload\"&objrs("anexo"),Dir&"\&"

'ObjetoArquivo.CopyFile("C:\Inetpub\wwwroot\NSconf\upload\"&objrs("anexo")),(Dir&"\&")

cod = objrs("anexo")

'Set fso = Server.CreateObject("Scripting.FileSystemObject")

If ObjetoArquivo.FileExists("C:\Inetpub\wwwroot\NSconf\upload\"&cod) then

Set fileObject = ObjetoArquivo.GetFile("C:\Inetpub\wwwroot\NSconf\upload\"&cod)

fileObject.MoveFile(Dir&"/"&cod)

Set fso = NothingElse

Response.Write "Arquivo Não existe: " & Server.MapPath("upload/"&cod)

Response.End

End If

Response.Write "Arquivos movidos com sucesso"&"<br>"

objrs.movenext

wend

end if

%>

[bareta]

você deve indicar a origem e o destino do arquivo no movefile

Set fs=Server.CreateObject("Scripting.FileSystemObject")
     fs.MoveFile file_fonte , file_destino
Set fs=nothing

[Ruiva]

Eu coloquei como você falou porém agora aparece o erro:

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A0046)

Permissão negada

/Nsconf/alterar_num_proc.asp, line 53

Essa linha 53 é a origem e destino do arquivo.

[bareta]

obviamente a pasta que vai receber o arquivo tem que ter permissão de escrita, ou sempre vai dar permissão negada.

[Ruiva]

mas ela tem...

[bareta]

um poquinho de FSO: http://fuila.net/1K

ta passando os caminhos fisicos corretamente? como que ficou ai?