AS EMPRESAS ESTÃO "DESESPERADAS" POR ESTE TIPO DE PROFISSIONAL... - VOCÊ É UM DELES?
MEGA FORMAÇÃO EM INFRAESTRUTURA DE TI - O Conhecimento que Vira Dinheiro - CLIQUE AQUI
| « Lição anterior | Δ Página principal | ¤ Capítulos | Próxima lição » |
| SITES DINÂMICOS COM ASP 3.0 - CURSO COMPLETO Autor: Júlio Battisti |
||||||||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| Lição 086 - Capítulo 11 - O objeto Folder | ||||||||||||||||||||||||||||||||
Para criar um objeto do tipo Folder, utilizamos o método GetFolder ou o método GetSpecialFolder do objeto FileSystemObject, conforme descrito anteriormente. Um objeto do tipo Folder também é retornado pela propriedade RootFolder do objeto Drive. No exemplo a seguir, criamos um objeto do tipo Folder, chamado folderobj: <% Set fileobj=Server.CreateObject(“Scripting.FileSystemObject”) Set folderobj = fileobj.GetFolder(“D:\meus documentos”) %> Agora podemos ter acesso a todas as propriedades e métodos do objeto folderobj. Então vamos ao estudo destas propriedades e métodos. Propriedades do objeto Folder. Na Tabela 11.3 temos uma descrição das propriedades do objeto Folder.
Tabela 11.3 Propriedades do objeto Folder. No exemplo da Listagem 11.2, podemos ver um exemplo de utilização das propriedades do objeto Folder. Listagem 11.2 – Utilizando as propriedades do objeto Folder. 1 <%@ Language=VBScript %> 2 <HTML> 3 <HEAD> 4 <TITLE>Utilizando o objeto Folder. </TITLE> 5 </HEAD> 6 <BODY> 7 <% 8 ' O primeiro passo é a criação do objeto FileSystemObject. 9 Set fileobj=Server.CreateObject("Scripting.FileSystemObject") 10 %> 11 <HR> 12 <% 13 Set objfolder=fileobj.GetFolder("C:\meus documentos") 14 Response.Write "Atributos de C:\Meus documentos:<B> " & objfolder.Attributes & "</B><BR>" 15 Response.Write "Date e hora de criação de C:\Meus documentos:<B> " & objfolder.DateCreated & "</B><BR>" 16 Response.Write "Date e hora do último acesso à C:\Meus documentos:<B> " & objfolder.DateLastAccessed & "</B><BR>" 17 Response.Write "Date e hora da última modificação em C:\Meus documentos:<B> " & objfolder.DateLastModified & "</B><BR>" 18 Response.Write "A pasta C:\Meus documentos está no drive:<B> " & objfolder.Drive & "</B><BR>" 19 Response.Write "A pasta C:\Meus documentos é raiz ? <B> " & objfolder.IsRootFolder & "</B><BR>" 20 Response.Write "Nome da pasta C:\Meus documentos:<B> " & objfolder.Name & "</B><BR>" 21 Response.Write "Parent Folder de C:\Meus documentos:<B> " & objfolder.ParentFolder & "</B><BR>" 22 Response.Write "Path de C:\Meus documentos:<B> " & objfolder.Path & "</B><BR>" 23 Response.Write "Nome curto de C:\Meus documentos:<B> " & objfolder.ShortName & "</B><BR>" 24 Response.Write "Nome curte do caminho de C:\Meus documentos:<B> " & objfolder.ShortPath & "</B><BR>" 25 Response.Write "Tamanho total de C:\Meus documentos:<B> " & objfolder.Size & " bytes</B><BR>" 26 Response.Write "Tipo de C:\Meus documentos:<B> " & objfolder.Type & "</B><BR>"
27 Response.Write "<HR>" 28 Response.Write "SUPBASTAS DA PASTA C:\MEUS DOCUMENTOS <HR>"
29 For each pasta in objfolder.subfolders 30 Response.Write "Pasta de C:\meus documetnos: <B><I>" & pasta & "</B></I><BR>" 31 Next 32 Response.Write "<HR>" 33 Response.Write "ARQUIVOS DA PASTA C:\MEUS DOCUMENTOS <HR>" 34 For each arquivo in objfolder.Files 35 Response.Write "Arquivo de C:\meus documetnos: <B><I>" & arquivo & "</B></I><BR>" 36 Next 37 %> 38 </BODY> 39 </HTML> A Figura 11.9 mostra a parte inicial do resultado desta página ao ser carregada no Internet Explorer.
Na Figura 11.10 vemos uma parte do resultado, onde são exibidos os elementos da coleção Files.
Métodos do objeto Folder. O objeto Folder possui 4 métodos.
Se o destino termina com o caracter “\”, o método Copy considera que o destino representa o nome de uma pasta já existente, para a qual deve ser copiada a pasta representada pelo objeto Folder. Caso contrário o método assume que o parâmetro destino especifica o nome completo de uma nova pasta que deve ser criada. O parâmetro substituir pode assumir os valores True ou False. O valor padrão é True. Se a pasta especificada no parâmetro destino já existe e o parâmetro substituir estiver definido em Falso, ocorrerá um erro. Considere o exemplo: <% Set fileobj=Server.CreateObject(“Scripting.FileSystemObject”) Set folderobj = fileobj.GetFolder(“D:\meus documentos”) folderobj.copy(“E:\meus documentos”,true) %>
O parâmetro substituir pode assumir os valores True e False. Quando este parâmetro tiver o valor True, se o arquivo já existir o mesmo será eliminado e um novo arquivo será criado. O padrão para o parâmetro substituir é False. Este parâmetro é opcional. O parâmetro unicode pode assumir os valores True e False. Se este parâmetro tiver o valor True, o texto será salvo com caracteres unicode, os quais utilizam dois bytes por caractere, ao invés de um byte por caracter como é o caso do padrão ASCII. O valor padrão para o parâmetro unicode é False. Este parâmetro é opcional. Considere o exemplo a seguir: <% Set fileobj=Server.CreateObject("Scripting.FileSystemObject") Set folder=fileobj.GetFolder(“C:\”) Set arqtexto = folder.CreateTextFile("c:\teste.txt",true) arqtexto.WriteLine("*************************") arqtexto.writeline("LINHA 1 DO TEXTO") arqtexto.writeline("LINHA 2 DO TEXTO") arqtexto.writeline("LINHA 3 DO TEXTO") arqtexto.writeline("*************************") %> Este fragmento de código cria um objeto do tipo TextStream, o qual é associado a variável arqtexto. Depois utilizamos o método writeline para escrever linhas de texto no arquivo c:\teste.txt. Na Figura 11.11 temos o conteúdo do arquivo teste.txt, após a execução do código do nosso exemplo.
Considere o exemplo: folderobj.Delete(True)
Se o destino termina com o caracter “\”, o método Move considera que o destino representa o nome de uma pasta já existente, para a qual deve ser movida a pasta . Caso contrário o método assume que o parâmetro destino especifica o nome de uma nova pasta que deve ser criada e para a qual deve ser movido o conteúdo da pasta de origem. Caso a pasta de destino já exista, ocorrerá um erro. Considere o exemplo: folderobj.Move “C:\copia de seguranca\documentos" Com isso encerramos o estudo do objeto Folder. Agora vamos ao estudo do objeto File. |
||||||||||||||||||||||||||||||||
| « Lição anterior | Δ Página principal | ¤ Capítulos | Próxima lição » |
|
MEGA FORMAÇÃO EM INFRAESTRUTURA DE TI (Online, Vitalício, Prático e Atualizado)! |
|
|
NÃO PROCURE VAGAS, SEJA PROCURADO! |
|
Para Todos os Detalhes, Acesse:
https://juliobattisti.com.br/curso-infra-ti.asp
|
Contato: Telefone: (51) 3717-3796 | E-mail: webmaster@juliobattisti.com.br | Whatsapp: (51) 99627-3434
Júlio Battisti Livros e Cursos Ltda | CNPJ: 08.916.484/0001-25 | Rua Vereador Ivo Cláudio Weigel, 537 - Universitário, Santa Cruz do Sul/RS, CEP: 96816-208
Todos os direitos reservados, Júlio Battisti 2001-2026 ®
LIVRO: MACROS E PROGRAMAÇÃO VBA NO EXCEL 2016 - CURSO COMPLETO E PRÁTICO
DOMINE A PROGRAMAÇÃO VBA NO EXCEL - 878 PÁGINAS - CLIQUE AQUI