[Resolvido] Função: "Se o arquivo existe"

[Vinícius Siller 0]

Olá pessoas, não sou de fato um programador e preciso da ajuda de vocês que sabem mais do que eu.

 

Comecei criar essa função:

<%
conf_diretorio = "D:\web\scripts\asp\funcoes\arquivo_existe"
Dim arquivo, objFSO, conf_diretorio

Function existe(arquivo)
Set objFSO = CreateObject("Scripting.FileSystemObject")
if objFSO.FileExists(conf_diretorio & "\"&arquivo&"") = False then'Verifica se o arquivo existe
response.Write False'Não Existe
else
response.Write True'Existe
end if
End Function
response.write(existe("teste.asp"))
%>

O problema é o seguinte:

A função retorna o valor como se fosse uma string, e eu queria que me retornasse uma variável de controle.

 

pois eu queria usar a função assim:

 

<%
if existe("teste.asp") = valor then
response.write("algum texto")
else
response.write("outro texto")
end if
%>

Como posso conseguir fazer essa função retornar uma variavel de controle ao invés de uma string?

[Patrique 0]

mais o que virar na variavel valor?

 

<%

if existe("teste.asp") = valor then

response.write("algum texto")

else

response.write("outro texto")

end if

%>

[Vinícius Siller 0]

mais o que virar na variavel valor?

 

Então patrique, se você colocar a função para rodar, verá que ela retorna um valor que não faz o controle do if.

Eu queria que ela me retornasse q q valor que faça esse controle.

[xanburzum 169]

olha este exemplo

 

 

sintaxe

boolean = File(pathname)

 

code:

<%
Private Function File(byVal pathname)
	Dim objFSO
	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
	File = objFSO.FileExists(pathname)
	Set objFSO = Nothing
End Function
%>

usando:

<% = File( server.mappath("/sua pasta/arquivo.asp") ) %>

[Vinícius Siller 0]

Cara, muito bom e muito mais simples que o meu além de mais correto:

 

Fiz assim, vê se ficou legal:

<%
Private Function File(byVal pathname)
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
File = objFSO.FileExists (server.mappath(pathname))
Set objFSO = Nothing
End Function
%>

Uso:

 

<%
 if File("teste.asp") = True then
 response.Write("OK")
 else
 response.Write("ERRO")
 end if
%>

Mais uma vez, obrigado!

[Patrique 0]

Muito boa a função que o Xam postou mesmo.

 

[]'s

[Vinícius Siller 0]

Essa função vai ser muito importante para um painel administrativo que estou desenvolvendo.

O painel será construído baseado em módulos, ex: mod_noticias.asp, mod_galeria.asp, mod_agenda.asp, mod_produtos.asp .

 

Para que não fique mexendo no código da estrutura constantemente, as sessões serão estruturadas da seguinte forma:

 

O menu por exemplo:

<%
if File("mod_produtos.asp") = True then
response.Write("<a href='index.asp?ModID=1'>Produtos</a>")
end if

if File("mod_galeria.asp") = True then
response.Write("<a href='index.asp?ModID=2'>Galeria</a>")
end if

if File("mod_agenda.asp") = True then
response.Write("<a href='index.asp?ModID=3'>Agenda</a>")
end if
%>

Dessa forma, essa estrutura só será ativada se o "plugin" no caso o arquivo do módulo estiver no servidor, quase como funciona no wordpress, ou seja, a estruturação da navegação, mensagens, interação dependerá da instalação do módulo.

Se alguém puder melhorar a idéia ou o raciocínio, postem aí, vou adorar receber críticas construtivas e dicas para esse projeto.

 

Grande abraço aos participantes!

[xanburzum 169]

beleza, bom k te ajudou, você tb poderia, por exemplo, verificando o modulo existente,

você pode implementar como se fosse um menu dinamico nele