Scribd
Carregar
72 visualizações4 páginas

My Computer Filesystem

Este documento lista vários métodos para manipular arquivos e diretórios no sistema de arquivos, incluindo combinar caminhos, copiar, criar, apagar, verificar a existência, procurar em arquivos, obter informações, mover, ler, escrever, renomear arquivos e diretórios.

Enviado por

rui_e90
Direitos autorais
© © All Rights Reserved
Levamos muito a sério os direitos de conteúdo. Se você suspeita que este conteúdo é seu, reivindique-o aqui.
Formatos disponíveis
Baixe no formato DOCX, PDF, TXT ou leia on-line no Scribd
72 visualizações4 páginas

My Computer Filesystem

Este documento lista vários métodos para manipular arquivos e diretórios no sistema de arquivos, incluindo combinar caminhos, copiar, criar, apagar, verificar a existência, procurar em arquivos, obter informações, mover, ler, escrever, renomear arquivos e diretórios.

Enviado por

rui_e90
Direitos autorais
© © All Rights Reserved
Levamos muito a sério os direitos de conteúdo. Se você suspeita que este conteúdo é seu, reivindique-o aqui.
Formatos disponíveis
Baixe no formato DOCX, PDF, TXT ou leia on-line no Scribd
Você está na página 1/ 4

CombinePath

'Combina dois caminhos(Path)


Dim path As String
path = My.Computer.FileSystem.CombinePath("C:\vouzela", "texto.txt")
MessageBox.Show(path)

CopyDirectory
'Copia subpastas e ficheiros para uma selecionada
My.Computer.FileSystem.CopyDirectory("C:\textos", "C:\arquivo", True)

CopyFile
'Copia o ficheiro selecionado de uma pasta para a outra
My.Computer.FileSystem.CopyFile("C:\textos\antigo.txt", "C:\arquivo\novo.txt")

CreateDirectory
'Cria uma pasta
My.Computer.FileSystem.CreateDirectory("C:\vouzela")

DeleteDirectory
'Apaga uma pasta
My.Computer.FileSystem.DeleteDirectory("C:\vouzela",
FileIO.DeleteDirectoryOption.DeleteAllContents)

DeleteFile
'Apaga um ficheiro
My.Computer.FileSystem.DeleteFile("C:\vouzela\arquivo.txt")

DirectoryExists
'verifica se o diretrio existe
MessageBox.Show(My.Computer.FileSystem.DirectoryExists("C:\vouzela"))

FileExists
'verifica se o ficheiro existe
MessageBox.Show(My.Computer.FileSystem.FileExists("C:\vouzea\arquivo.txt"))

FindInFiles
Dim list As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
list = My.Computer.FileSystem.FindInFiles("C:\vouzela", "texto a encontrar nos
ficheiros de texto", True, FileIO.SearchOption.SearchTopLevelOnly)
For Each name As String In list
List1.Items.Add(name)
Next

GetDirectories
'Apresenta as subdiretorias de uma diretoria
For Each diretoriaencontrada As String In
my.Computer.FileSystem.GetDirectories("C:\vouzela")
list.Items.Add(diretoriaencontrada)
Next

GetDirectoryInfo
'Apresenta as informaes de uma pasta
Dim getInfo As System.IO.DirectoryInfo
getInfo = My.Computer.FileSystem.GetDirectoryInfo("C:\vouzela")
MsgBox("A Pasta foi criada a " & getInfo.CreationTime & ".")
MsgBox("A ltima vez que a pasta foi acessada foi a " & getInfo.LastAccessTime &
".")
MsgBox("A ltima edio da pasta foi a " & getInfo.LastWriteTime & ".")

GetDriveInfo
'Apresenta informaes de um Disco
Dim getInfo As System.IO.DriveInfo
getInfo = My.Computer.FileSystem.GetDriveInfo("C:\")
MessageBox.Show("O tipo de disco " & getInfo.DriveType)
MessageBox.Show("O espao no disco de " & getInfo.TotalFreeSpace & " bytes
livres.")

GetFileInfo
''Apresenta as informaes de um ficheiro
Dim info As System.IO.FileInfo
info = My.Computer.FileSystem.GetFileInfo("C:\vouzela\arquivo.txt")
MsgBox("O caminho do ficheiro " & info.FullName & ".")
MsgBox("O ltimo acesso foi a : " & info.LastAccessTime & ".")
MsgBox("O tamanho do ficheiro de " & info.Length & " caracteres .")

GetFiles
'Apresenta os ficheiros contidos na pasta
For Each ficheiroencontrado As String In
My.Computer.FileSystem.GetFiles("C:\vouzela")
MessageBox.Show(ficheiroencontrado)
Next

GetName
'Devolve o nome do ficheiro de um caminho
MessageBox.Show("O nome do ficheiro escolhido : " &
My.Computer.FileSystem.GetName("C:\vouzela\arquivo.xt") & " .")

GetParentPath
'Devolve o caminho pai
Dim caminho As String
caminho = My.Computer.FileSystem.GetParentPath("C:\vouzela\escola\")
MessageBox.Show(caminho)

GetParentPath
'Cria um ficheiro temporrio e apresenta o caminho
MsgBox("O novo ficheiro temporrio est criado em " &
My.Computer.FileSystem.GetTempFileName)

MoveDirectory
'Move os ficheiros de uma pasta
My.Computer.FileSystem.MoveDirectory("C:\escola", "C:\camara")

MoveFile
'Move um ficheiro
My.Computer.FileSystem.MoveFile("C:\vouzela\teste.txt", "C:\arquivo")

OpenTextFileReader
'Abre um ficheiro de texto para leitura
Dim fileReader As System.IO.StreamReader
fileReader = My.Computer.FileSystem.OpenTextFileReader("C:\vouzela\teste.txt")
Dim stringReader As String
stringReader = fileReader.ReadLine()
MsgBox("A primeira linha do ficheiro a seguinte : " & stringReader)
stringReader = fileReader.ReadLine()
MsgBox("A segunda linha do ficheiro a seguinte : " & stringReader)

OpenTextFileWriter
'Grava num ficheiro de texto
Dim file As System.IO.StreamWriter
file = My.Computer.FileSystem.OpenTextFileWriter("C:\vouzela\arquiv.txt", True)
file.WriteLine("primeira linha.")
file.WriteLine("segunda linha.")
file.Close()

ReadAllText

'L um ficheiro de texto


Dim ler As String
ler = My.Computer.FileSystem.ReadAllText("C:\vouzela\arquivo.txt")
MessageBox.Show(ler)

WriteAllText
'Escreve num ficheiro de texto
My.Computer.FileSystem.WriteAllText("C:\vouzela\texto.txt", "novo texto", True)

RenameDirectory
'muda o nome de uma diretoria
My.Computer.FileSystem.RenameDirectory("C:\nome", "novonome")

RenameFile
'muda o nome de um ficheiro
My.Computer.FileSystem.RenameFile("C:\nomeantigo.doc", "novonome.txt")

Você também pode gostar

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy