Família Dammous

Família Dammous - Artigos

English version

Quinta-feira, 19/Junho/2025

Conecte-se

/dev :: principal :: artigos

Música

Notícias

Meteorologia

Genealogia

Astrologia

Nutrição

» Adiciona Favoritos

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

1544 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

Só há duas maneiras de viver a vida: a primeira é vivê-la como se os milagres não existissem. A segunda é vivê-la como se tudo fosse um milagre.

Albert Einstein

[ processado em: 7,02 segundos.]