0% acharam este documento útil (0 voto)
18 visualizações4 páginas

Operações com Arquivos e Pastas

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
0% acharam este documento útil (0 voto)
18 visualizações4 páginas

Operações com Arquivos e Pastas

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

CombinePath

'Combina dois caminhos(Path)


Dim path As String
path = [Link]("C:\vouzela", "[Link]")
[Link](path)

CopyDirectory
'Copia subpastas e ficheiros para uma selecionada
[Link]("C:\textos", "C:\arquivo", True)

CopyFile
'Copia o ficheiro selecionado de uma pasta para a outra
[Link]("C:\textos\[Link]", "C:\arquivo\[Link]")

CreateDirectory
'Cria uma pasta
[Link]("C:\vouzela")

DeleteDirectory
'Apaga uma pasta
[Link]("C:\vouzela",
[Link])

DeleteFile
'Apaga um ficheiro
[Link]("C:\vouzela\[Link]")

DirectoryExists
'verifica se o diretrio existe
[Link]([Link]("C:\vouzela"))

FileExists
'verifica se o ficheiro existe
[Link]([Link]("C:\vouzea\[Link]"))

FindInFiles
Dim list As [Link](Of String)
list = [Link]("C:\vouzela", "texto a encontrar nos
ficheiros de texto", True, [Link])
For Each name As String In list
[Link](name)
Next

GetDirectories
'Apresenta as subdiretorias de uma diretoria
For Each diretoriaencontrada As String In
[Link]("C:\vouzela")
[Link](diretoriaencontrada)
Next

GetDirectoryInfo
'Apresenta as informaes de uma pasta
Dim getInfo As [Link]
getInfo = [Link]("C:\vouzela")
MsgBox("A Pasta foi criada a " & [Link] & ".")
MsgBox("A ltima vez que a pasta foi acessada foi a " & [Link] &
".")
MsgBox("A ltima edio da pasta foi a " & [Link] & ".")

GetDriveInfo
'Apresenta informaes de um Disco
Dim getInfo As [Link]
getInfo = [Link]("C:\")
[Link]("O tipo de disco " & [Link])
[Link]("O espao no disco de " & [Link] & " bytes
livres.")

GetFileInfo
''Apresenta as informaes de um ficheiro
Dim info As [Link]
info = [Link]("C:\vouzela\[Link]")
MsgBox("O caminho do ficheiro " & [Link] & ".")
MsgBox("O ltimo acesso foi a : " & [Link] & ".")
MsgBox("O tamanho do ficheiro de " & [Link] & " caracteres .")

GetFiles
'Apresenta os ficheiros contidos na pasta
For Each ficheiroencontrado As String In
[Link]("C:\vouzela")
[Link](ficheiroencontrado)
Next

GetName
'Devolve o nome do ficheiro de um caminho
[Link]("O nome do ficheiro escolhido : " &
[Link]("C:\vouzela\[Link]") & " .")

GetParentPath
'Devolve o caminho pai
Dim caminho As String
caminho = [Link]("C:\vouzela\escola\")
[Link](caminho)

GetParentPath
'Cria um ficheiro temporrio e apresenta o caminho
MsgBox("O novo ficheiro temporrio est criado em " &
[Link])

MoveDirectory
'Move os ficheiros de uma pasta
[Link]("C:\escola", "C:\camara")

MoveFile
'Move um ficheiro
[Link]("C:\vouzela\[Link]", "C:\arquivo")

OpenTextFileReader
'Abre um ficheiro de texto para leitura
Dim fileReader As [Link]
fileReader = [Link]("C:\vouzela\[Link]")
Dim stringReader As String
stringReader = [Link]()
MsgBox("A primeira linha do ficheiro a seguinte : " & stringReader)
stringReader = [Link]()
MsgBox("A segunda linha do ficheiro a seguinte : " & stringReader)

OpenTextFileWriter
'Grava num ficheiro de texto
Dim file As [Link]
file = [Link]("C:\vouzela\[Link]", True)
[Link]("primeira linha.")
[Link]("segunda linha.")
[Link]()

ReadAllText

'L um ficheiro de texto


Dim ler As String
ler = [Link]("C:\vouzela\[Link]")
[Link](ler)

WriteAllText
'Escreve num ficheiro de texto
[Link]("C:\vouzela\[Link]", "novo texto", True)

RenameDirectory
'muda o nome de uma diretoria
[Link]("C:\nome", "novonome")

RenameFile
'muda o nome de um ficheiro
[Link]("C:\[Link]", "[Link]")

Você também pode gostar