Ir para conteúdo
Fórum Script Brasil
  • 0

Problema Em Código


thicomp

Pergunta

Pessoal, alguém saberia me dizer o problema deste if

Const forWriting=2, forAppending=8

Dim objteste, objstream, FSO, objname

set objteste = createobject("scripting.FileSystemObject")

if objteste.FileExists ("F:\teste\teste\"& doc &"\"& teste &"") = true then

'Renomeia arquivo antigo

objname.name ""& date &"_"& teste &""

teste1 = ""& date &"_"& teste &""

'Move arquivo antigo para a pasta alt

FSO.MoveFile "F:\teste\teste\"& doc &"\"& teste1 &"","F:\teste\teste\"& doc &"\alt\"

'Move arquivo atual para a pasta específica

FSO.MoveFile "F:\teste\teste\"& doc &"\alt\"& teste &"","F:\teste\teste\"& doc &"\"

else

'Move arquivo para página específica

FSO.MoveFile "F:\teste\teste\"& doc &"\alt\"& teste &"","F:\teste\teste\"& doc &"\"

end if

Obrigado pela atenção

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0

sei não...

Const forWriting=2
Const forAppending=8
Dim objteste, objstream, FSO, objname

set objteste = createobject("scripting.FileSystemObject")

if objteste.FileExists ("F:\teste\teste\"& doc &"\"& teste &"") = true then
teste1 = ""& date &"_"& teste &""
'Move arquivo antigo para a pasta alt
FSO.MoveFile "F:\teste\teste\"& doc &"\"& teste1 &"","F:\teste\teste\"& doc &"\alt\"
'Move arquivo atual para a pasta específica
FSO.MoveFile "F:\teste\teste\"& doc &"\alt\"& teste &"","F:\teste\teste\"& doc &"\"
else
'Move arquivo para página específica
FSO.MoveFile "F:\teste\teste\"& doc &"\alt\"& teste &"","F:\teste\teste\"& doc &"\"
end if

tenta asim

Link para o comentário
Compartilhar em outros sites

  • 0

Ele não executa o "if"

Ele passa pelo if sem dar msg alguma e me retorna um erro qd chega no else. Mais precisamente nesta linha.

FSO.MoveFile "F:\teste\teste\"& doc &"\alt\"& teste &"","F:\teste\teste\"& doc &"\"

Neste código tem um problema que estou tentando renomear com a data atual, mas mesmo sem este comando, alterando de outra forma ele me retorna o mesmo erro.

ERRO

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/teste/teste/upload.asp, line 65

Vlw

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...