Acertando código em FSO

[alex_rlima 0]

Pessoal,

 

Estou testando as linhas de código abaixo porém ele não enxerga o arquivo no diretório que especifiquei. Só tem um detalhe o arquivo está lá. Será que meu código está errado? Alguém poderia me ajudar?

 

Att.

 

Alex Lima

 

ASP

[*]

[*]<%

[*]Dim fso, pasta, arquivo, id

[*]

[*]Set fso = CreateObject("Scripting.FileSystemObject")

[*]pasta = "c:\Inetbub\wwwroot\Upload\fotos\"

[*]arquivo = "palio.jpg"

[*]

[*]if fso.FileExists(pasta & arquivo) = True then

[*]Response.write "O arquivo" & " " & arquivo & " " & "existe e pode ser renomeado."

[*]Response.write arquivo

[*]Else

[*]Response.write "O arquivo" & " " & arquivo & " " & "não existe. Verifique no diretório" & " " & pasta & "."

[*]End if

[*]

[*]Set pasta = Nothing

[*]Set arquivo = Nothing

[*]Set fso = Nothing

[*]Set id = Nothing

[*]

[*]%>

[*]

[sublyer 0]

<%Dim fso, pasta, arquivo, idSet fso = CreateObject("Scripting.FileSystemObject")'Usar Server.MapPath que é melhor para web ok.pasta = Server.MapPath("diretório")arquivo = "palio.jpg"if fso.FileExists(pasta & arquivo) = True thenResponse.write "O arquivo" & " " & arquivo & " " & "existe e pode ser renomeado."Response.write (arquivo)ElseResponse.write "O arquivo" & " " & arquivo & " " & "não existe. Verifique no diretório" & " " & pasta & "."End ifSet pasta = NothingSet arquivo = NothingSet fso = NothingSet id = Nothing

[alex_rlima 0]

Muito obrigado. Funcionou.