Família Dammous

Família Dammous - Artigos

English version

Sexta-feira, 25/Setembro/2020

Conecte-se

/dev :: principal :: artigos

Música

Notícias

Meteorologia

Genealogia

Astrologia

Nutrição

» Adiciona Favoritos

4 usuários online »»» 4 convidados - mais...

1543 membros

Manipulando Arquivos

Nesta capítulo vamos aprenderemos a verificar a existência de pastas. No decorrer desses capítulos nós veremos como apresentar imagens em uma página Web sem utilizar uma Base de Dados.

Segue o código comentado... <%'Força declarar as variáveis
Option Explicit%>
<HTML>
<%
'Declara a variável objFSO
Dim objFSO

'A variável objFSO recebe uma instância do objeto criado, ou seja, 
'a partir de agora a variável objFSO passa a representar o objeto criado.
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

'Server.MapPath --> executa uma procura
'Toda a procura pela pasta é feita dentro do mesmo nível 
'(dentro da mesma pasta)
'que se encontra o arquivo filesystemobject_1.asp
'objFSO.FolderExists --> Propriedade do Objeto que verifica a existência, 
'no caso, da pasta aspbrasil
'caso seja retornado True a pasta existe
'caso seja retornado False a pasta não existe neste nível
'Fazer a verificação se = True é opcional
'A verificação de (= True) é opcional, a verificação é feita da mesma maneira
'Para acessar um nível abaixo utilize ...MapPath("..\c")
If objFSO.FolderExists(Server.MapPath("aspbrasil")) = True Then
Response.Write "A pasta que você procura existe!"
Else
Response.Write "A pasta que você procura não existe!"
End if

'Set objFSO = Nothing --> "limpa" o objeto de quaisquer instâncias aberta.
Set objFSO = Nothing

'Dica...
'você pode usar uma variável para fazer sua pesquisa de pastas
'onde o nome da variável entrará via <Form>
'Até a próxima (filesystemobject_2.asp)
%>
</HTML>

Junior Guimarães

http://www.aspbrasil.com.br

Voltar

Linux

Programas

ASP

Jogos

Cartão Postal

Frase

Quatro etapas para uma façanha: planejar objetivamente, preparar religiosamente, proceder positivamente, perseguir persistentemente."

William A. Ward

[ processado em: 2,14 segundos.]