Como: Criar uma listagem de diretório
O exemplo de código a seguir mostra como utilizar as classes de E/S para criar uma listagem de todos os arquivos com a extensão ".exe" em um diretório.
Exemplo
Option Explicit On
Option Strict On
Imports System
Imports System.IO
Class DirectoryLister
Public Shared Sub Main(ByVal args As String())
Dim path As String = Environment.CurrentDirectory
If (args.Length > 0) Then
If File.Exists(args(0)) Then
path = args(0)
Else
Console.WriteLine("{0} not found; using current directory:", _
args(0))
End If
End If
Dim dir As New DirectoryInfo(path)
Dim f As FileInfo
For Each f In dir.GetFiles("*.exe")
Dim name As [String] = f. Name
Dim size As Long = f.Length
Dim creationTime As DateTime = f.CreationTime
Console.WriteLine("{0,-12:N0} {1,-20:g} {2}", size, creationTime, name)
Next f
End Sub
End Class
using System;
using System.IO;
class DirectoryLister
{
public static void Main(String[] args)
{
string path = Environment.CurrentDirectory;
if (args.Length > 0)
{
if (Directory.Exists(args[0]))
{
path = args[0];
}
else
{
Console.WriteLine("{0} not found; using current directory:",
args[0]);
}
}
DirectoryInfo dir = new DirectoryInfo(path);
foreach (FileInfo f in dir.GetFiles("*.exe"))
{
String name = f. Name;
long size = f.Length;
DateTime creationTime = f.CreationTime;
Console.WriteLine("{0,-12:N0} {1,-20:g} {2}", size,
creationTime, name);
}
}
Programação robusta
Nesse exemplo, DirectoryInfo é o diretório atual, indicado por (". "), e o código lista todos os arquivos no diretório atual com uma extensão .exe, juntamente com seus tamanhos de arquivo, hora de criação e nome.Supondo que existam arquivos .exe no subdiretório \Bin de C:\MyDir, a saída desse código pode ter esta aparência:
953 7/20/2000 10:42 AM C:\MyDir\Bin\paramatt.exe
664 7/27/2000 3:11 PM C:\MyDir\Bin\tst.exe
403 8/8/2000 10:25 AM C:\MyDir\Bin\dirlist.exe
Se você desejar uma lista de arquivos em outro diretório, sistema autônomo o diretório raiz C:\, passe o argumento "C:\" para o executável gerado por compilar esse código, por exemplo: "testApplication.exe C:\".
.gif "Observação") Observação: |
|---|
Os usuários do Visual Basic podem optar por usar os métodos e propriedades fornecidas pela My.Computer.FileSystem objeto para E/s de arquivo. Para obter mais informações, consulte Objeto My.Computer.FileSystem. |
Consulte também
Tarefas
Como: Ler e gravar em um arquivo de dados recém-criado
Como: em em aberto e anexar em um arquivo de log
Como: Gravar um arquivo de texto
Como: Caracteres de leitura de uma seqüência de caracteres
Como: Escrever caracteres para uma string