Erro com FSO

[Selt 0]

Galera... me diz ...por favor ... fiz um codigo que procura um arquivo ... se ele existir ele deleta... nada demais mas está dando o seguinte erro:

 

Erro de tempo de execução do Microsoft VBScript erro '800a01a8' Objeto necessário: '' /teste/adm/dic/prealtera.asp, line 126

a linha 126 está em negrito:

 

foto=mySmartUpload.Files("file").Filename

newname=nome&"-"&comercial&".jpg"

intCount = mySmartUpload.Save("../../images/dic")

if fso.FileExists("C:\home\parrotsplace\www\teste\images\dic\"&newname)=true then

    fso.DeleteFile("C:\home\parrotsplace\www\teste\images\dic\"&newname)

end if

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

fso.movefile "C:\home\parrotsplace\www\teste\images\dic\"&foto, "C:\home\parrotsplace\www\teste\images\dic\"&newname

Set fso = Nothing

foto=newname

objup="UPDATE dic SET nome='"&nome&"',comercial='"&comercial&"',descricao='"&descricao&"',prioridade='"&prioridade&"',tipo='"&tipo&"',foto='"&foto&"',subcod='"&subcod&"' WHERE codigo="&cod

set objset=conn.execute(objup)

Please... q erro é esse???

[DJ W 0]

Opa amigo ....você já tentou colocar o Set fso = Server.CreateObject("Scripting.FileSystemObject") depois da linha:intCount = mySmartUpload.Save("../../images/dic")??Creio que você deve fazer isso antes de utilizar métodos do componente...Qualquer coisa posta ai....[]`sWescley

[Selt 0]

É era isso mesmo... deepois olhei com calma e achei esse erro infeliz e primário... mas valeu[]'s

[DJ W 0]

Opa....tamos ai para ajudar....Aproveitando....você já utilizou o FSO para criar arquivos?Estou tentando criar um arquivo .asp e mas não consigo quando coloco algo relativo a BD sendo que já consegui criar um arquivo .asp só colocando tags htm`sVeja se me ajuda ai...[]`sWescley