İzlenecek Yol: Visual Basic'te Dosyaları ve Dizinleri Düzenleme

Bu kılavuzda, dosya G/Ç ile ilgili temel Visual Basic. Bir dizinde metin dosyalarını listeleyen ve inceleyen küçük bir uygulamanın nasıl oluşturularak ilgili açıklamayı içerir. Uygulama, seçilen her metin dosyası için dosya öznitelikleri ve ilk içerik satırı sağlar. Günlük dosyasına bilgi yazma seçeneği vardır.

Bu izlenecek yol, içinde kullanılabilir My.Computer.FileSystem Object olan üyelerini Visual Basic. Daha fazla bilgi edinmek için bkz. FileSystem. Adım adım kılavuz sonunda, ad alanı sınıflarını kullanan eşdeğer bir örnek System.IO sağlanır.

Proje oluşturmak için

1. Dosya menüsünde Yeni Dosya'ya Project.

   Yeni Proje iletişim kutusu görünür.

2. Yüklü Şablonlar bölmesinde, Visual Basic'yi genişletin ve ardından Windows. Ortadaki Şablonlar bölmesinde Formlar Uygulaması'Windows tıklayın.

3. Ad kutusuna yazarak FileExplorer proje adını ayarlayın ve tamam'a tıklayın.

   Visual Studio proje Çözüm Gezgini ekler ve Windows Forms Tasarımcısı açılır.

4. Aşağıdaki tabloda yer alan denetimleri forma ekleyin ve özellikleri için karşılık gelen değerleri ayarlayın.

   Denetim	Özellik	Değer
   ListBox	Ad	filesListBox
   Düğme	Ad Metin	browseButton Gözat
   Düğme	Ad Metin	examineButton Incelemek
   CheckBox	Ad Metin	saveCheckBox Sonuçları Kaydetme
   Folderbrowserdialog	Ad	FolderBrowserDialog1

Bir klasör seçmek ve bir klasördeki dosyaları listele

1. Formda Click denetime browseButton çift tıklayarak için bir olay işleyicisi oluşturun. Kod Düzenleyicisi açılır.

2. Olay işleyiciye aşağıdaki Click kodu ekleyin.

   If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
       ' List files in the folder.
       ListFiles(FolderBrowserDialog1.SelectedPath)
   End If
   

   Çağrı, FolderBrowserDialog1.ShowDialog Klasöre Gözat iletişim kutusunu açar. Kullanıcı Tamam'a tıkladığında, özelliği yöntemine bağımsız değişken olarak SelectedPath gönderilir ve sonraki adımda ListFiles eklenir.

3. Aşağıdaki yöntemi ListFiles ekleyin.

   Private Sub ListFiles(ByVal folderPath As String)
       filesListBox.Items.Clear()
   
       Dim fileNames = My.Computer.FileSystem.GetFiles(
           folderPath, FileIO.SearchOption.SearchTopLevelOnly, "*.txt")
   
       For Each fileName As String In fileNames
           filesListBox.Items.Add(fileName)
       Next
   End Sub
   

   Bu kod önce ListBox'ları temizler.

   Yöntemi GetFiles daha sonra dizinde yer alan her dosya için bir dize koleksiyonuna sahip olur. yöntemi, GetFiles belirli bir desenle eşan dosyaları almak için bir arama deseni bağımsız değişkenini kabul eder. Bu örnekte yalnızca uzantıya sahip dosyalar .txt döndürülür.

   Yöntemi tarafından döndürülen GetFiles dizeler daha sonra ListBox'a eklenir.

4. Uygulamayı çalıştırın. Gözat düğmesine tıklayın. Klasöre Gözat iletişim kutusunda, dosya içeren bir klasöre .txt klasörü seçin ve Tamam'a tıklayın.

   ListBox, seçilen klasördeki .txt dosya listesini içerir.

5. Uygulamayı çalıştırmayı durdurun.

Bir dosyanın özniteliklerini ve metin dosyasından içerik almak için

1. Formda Click denetime examineButton çift tıklayarak için bir olay işleyicisi oluşturun.

2. Olay işleyiciye aşağıdaki Click kodu ekleyin.

   If filesListBox.SelectedItem Is Nothing Then
       MessageBox.Show("Please select a file.")
       Exit Sub
   End If
   
   ' Obtain the file path from the list box selection.
   Dim filePath = filesListBox.SelectedItem.ToString
   
   ' Verify that the file was not removed since the
   ' Browse button was clicked.
   If My.Computer.FileSystem.FileExists(filePath) = False Then
       MessageBox.Show("File Not Found: " & filePath)
       Exit Sub
   End If
   
   ' Obtain file information in a string.
   Dim fileInfoText As String = GetTextForOutput(filePath)
   
   ' Show the file information.
   MessageBox.Show(fileInfoText)
   

   Kod, içinde bir öğenin seçili olduğunu ListBox doğrular. Ardından dosya yolu girdisini dosyasından ListBox ediner. yöntemi, FileExists dosyanın hala mevcut olup olmadığını kontrol etmek için kullanılır.

   Dosya yolu, yöntemine bir bağımsız GetTextForOutput değişken olarak gönderilir ve sonraki adımda eklenir. Bu yöntem, dosya bilgilerini içeren bir dize döndürür. Dosya bilgileri bir MessageBox içinde görünür.

3. Aşağıdaki yöntemi GetTextForOutput ekleyin.

   Private Function GetTextForOutput(ByVal filePath As String) As String
       ' Verify that the file exists.
       If My.Computer.FileSystem.FileExists(filePath) = False Then
           Throw New Exception("File Not Found: " & filePath)
       End If
   
       ' Create a new StringBuilder, which is used
       ' to efficiently build strings.
       Dim sb As New System.Text.StringBuilder()
   
       ' Obtain file information.
       Dim thisFile As System.IO.FileInfo = My.Computer.FileSystem.GetFileInfo(filePath)
   
       ' Add file attributes.
       sb.Append("File: " & thisFile.FullName)
       sb.Append(vbCrLf)
       sb.Append("Modified: " & thisFile.LastWriteTime.ToString)
       sb.Append(vbCrLf)
       sb.Append("Size: " & thisFile.Length.ToString & " bytes")
       sb.Append(vbCrLf)
   
       ' Open the text file.
       Dim sr As System.IO.StreamReader =
           My.Computer.FileSystem.OpenTextFileReader(filePath)
   
       ' Add the first line from the file.
       If sr.Peek() >= 0 Then
           sb.Append("First Line: " & sr.ReadLine())
       End If
       sr.Close()
   
       Return sb.ToString
   End Function
   

   Kod, dosya GetFileInfo parametrelerini almak için yöntemini kullanır. Dosya parametreleri bir dosyasına StringBuilder eklenir.

   yöntemi, OpenTextFileReader dosya içeriğini bir içine StreamReader okur. İçeriğin ilk satırı, 'den elde edilir StreamReader ve 'ye StringBuilder eklenir.

4. Uygulamayı çalıştırın. Gözat 'a tıklayın ve dosya içeren bir klasöre .txt göz atabilirsiniz. Tamam'a tıklayın.

   içinde bir dosya seçin ve ListBox ardından İncele'ye tıklayın. , MessageBox dosya bilgilerini gösterir.

5. Uygulamayı çalıştırmayı durdurun.

Günlük girişi eklemek için

1. Olay işleyicinin sonuna aşağıdaki examineButton_Click kodu ekleyin.

   If saveCheckBox.Checked = True Then
       ' Place the log file in the same folder as the examined file.
       Dim logFolder As String = My.Computer.FileSystem.GetFileInfo(filePath).DirectoryName
       Dim logFilePath = My.Computer.FileSystem.CombinePath(logFolder, "log.txt")
   
       Dim logText As String = "Logged: " & Date.Now.ToString &
           vbCrLf & fileInfoText & vbCrLf & vbCrLf
   
       ' Append text to the log file.
       My.Computer.FileSystem.WriteAllText(logFilePath, logText, append:=True)
   End If
   

   Kod, günlük dosyasını seçilen dosyayla aynı dizine koymak için günlük dosyası yolunu ayarlar. Günlük girişinin metni, geçerli tarih ve saat olarak ve ardından dosya bilgilerine ayarlanır.

   bağımsız WriteAllText değişkeni olarak ayarlanmış append True yöntemi, günlük girişini oluşturmak için kullanılır.

2. Uygulamayı çalıştırın. Bir metin dosyasına göz at, içinde dosyayı ListBox seçin, Sonuçları Kaydet onay kutusunu seçin ve ardından İncele'ye tıklayın. Günlük girişinin dosyaya yazıldığı log.txt doğrulayın.

3. Uygulamayı çalıştırmayı durdurun.

Geçerli dizini kullanmak için

1. Forma çift tıklayarak Form1_Load için bir olay işleyicisi oluşturun.

2. Olay işleyiciye aşağıdaki kodu ekleyin.

   ' Set the default directory of the folder browser to the current directory.
   FolderBrowserDialog1.SelectedPath = My.Computer.FileSystem.CurrentDirectory
   

   Bu kod, klasör tarayıcısının varsayılan dizinini geçerli dizine ayarlar.

3. Uygulamayı çalıştırın. Gözat'a ilk kez tıklarsanız, Klasöre Gözat iletişim kutusu geçerli dizinde açılır.

4. Uygulamayı çalıştırmayı durdurun.

Denetimleri seçmeli olarak etkinleştirmek için

1. Aşağıdaki yöntemi SetEnabled ekleyin.

   Private Sub SetEnabled()
       Dim anySelected As Boolean =
           (filesListBox.SelectedItem IsNot Nothing)
   
       examineButton.Enabled = anySelected
       saveCheckBox.Enabled = anySelected
   End Sub
   

   yöntemi, SetEnabled içinde bir öğenin seçili olup olmadığına bağlı olarak denetimleri etkinleştiren veya devre dışı bıraktır. ListBox

2. Formda SelectedIndexChanged denetime filesListBox çift tıklayarak için bir ListBox olay işleyicisi oluşturun.

3. Yeni olay SetEnabled işleyicisinde çağrısı filesListBox_SelectedIndexChanged ekleyin.

4. Olay SetEnabled işleyicinin sonuna çağrısı browseButton_Click ekleyin.

5. Olay SetEnabled işleyicinin sonuna çağrısı Form1_Load ekleyin.

6. Uygulamayı çalıştırın. içinde bir öğe seçilmezse Sonuçları Kaydet onay kutusu ve İncele düğmesi devre dışı ListBox bırakılır.

My.Computer.FileSystem kullanan tam örnek

Aşağıda, tüm örnek verilmiştir.

' This example uses members of the My.Computer.FileSystem
' object, which are available in Visual Basic.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    ' Set the default directory of the folder browser to the current directory.
    FolderBrowserDialog1.SelectedPath = My.Computer.FileSystem.CurrentDirectory

    SetEnabled()
End Sub

Private Sub browseButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles browseButton.Click
    If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
        ' List files in the folder.
        ListFiles(FolderBrowserDialog1.SelectedPath)
    End If
    SetEnabled()
End Sub

Private Sub ListFiles(ByVal folderPath As String)
    filesListBox.Items.Clear()

    Dim fileNames = My.Computer.FileSystem.GetFiles(
        folderPath, FileIO.SearchOption.SearchTopLevelOnly, "*.txt")

    For Each fileName As String In fileNames
        filesListBox.Items.Add(fileName)
    Next
End Sub

Private Sub examineButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles examineButton.Click
    If filesListBox.SelectedItem Is Nothing Then
        MessageBox.Show("Please select a file.")
        Exit Sub
    End If

    ' Obtain the file path from the list box selection.
    Dim filePath = filesListBox.SelectedItem.ToString

    ' Verify that the file was not removed since the
    ' Browse button was clicked.
    If My.Computer.FileSystem.FileExists(filePath) = False Then
        MessageBox.Show("File Not Found: " & filePath)
        Exit Sub
    End If

    ' Obtain file information in a string.
    Dim fileInfoText As String = GetTextForOutput(filePath)

    ' Show the file information.
    MessageBox.Show(fileInfoText)

    If saveCheckBox.Checked = True Then
        ' Place the log file in the same folder as the examined file.
        Dim logFolder As String = My.Computer.FileSystem.GetFileInfo(filePath).DirectoryName
        Dim logFilePath = My.Computer.FileSystem.CombinePath(logFolder, "log.txt")

        Dim logText As String = "Logged: " & Date.Now.ToString &
            vbCrLf & fileInfoText & vbCrLf & vbCrLf

        ' Append text to the log file.
        My.Computer.FileSystem.WriteAllText(logFilePath, logText, append:=True)
    End If
End Sub

Private Function GetTextForOutput(ByVal filePath As String) As String
    ' Verify that the file exists.
    If My.Computer.FileSystem.FileExists(filePath) = False Then
        Throw New Exception("File Not Found: " & filePath)
    End If

    ' Create a new StringBuilder, which is used
    ' to efficiently build strings.
    Dim sb As New System.Text.StringBuilder()

    ' Obtain file information.
    Dim thisFile As System.IO.FileInfo = My.Computer.FileSystem.GetFileInfo(filePath)

    ' Add file attributes.
    sb.Append("File: " & thisFile.FullName)
    sb.Append(vbCrLf)
    sb.Append("Modified: " & thisFile.LastWriteTime.ToString)
    sb.Append(vbCrLf)
    sb.Append("Size: " & thisFile.Length.ToString & " bytes")
    sb.Append(vbCrLf)

    ' Open the text file.
    Dim sr As System.IO.StreamReader =
        My.Computer.FileSystem.OpenTextFileReader(filePath)

    ' Add the first line from the file.
    If sr.Peek() >= 0 Then
        sb.Append("First Line: " & sr.ReadLine())
    End If
    sr.Close()

    Return sb.ToString
End Function

Private Sub filesListBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles filesListBox.SelectedIndexChanged
    SetEnabled()
End Sub

Private Sub SetEnabled()
    Dim anySelected As Boolean =
        (filesListBox.SelectedItem IsNot Nothing)

    examineButton.Enabled = anySelected
    saveCheckBox.Enabled = anySelected
End Sub

System.IO kullanarak tam örnek

Aşağıdaki eşdeğer örnek, System.IO nesneleri kullanmak yerine ad alanından sınıfları kullanır My.Computer.FileSystem .

' This example uses classes from the System.IO namespace.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    ' Set the default directory of the folder browser to the current directory.
    FolderBrowserDialog1.SelectedPath =
        System.IO.Directory.GetCurrentDirectory()

    SetEnabled()
End Sub

Private Sub browseButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles browseButton.Click
    If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
        ' List files in the folder.
        ListFiles(FolderBrowserDialog1.SelectedPath)
        SetEnabled()
    End If
End Sub

Private Sub ListFiles(ByVal folderPath As String)
    filesListBox.Items.Clear()

    Dim fileNames As String() =
        System.IO.Directory.GetFiles(folderPath,
            "*.txt", System.IO.SearchOption.TopDirectoryOnly)

    For Each fileName As String In fileNames
        filesListBox.Items.Add(fileName)
    Next
End Sub

Private Sub examineButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles examineButton.Click
    If filesListBox.SelectedItem Is Nothing Then
        MessageBox.Show("Please select a file.")
        Exit Sub
    End If

    ' Obtain the file path from the list box selection.
    Dim filePath = filesListBox.SelectedItem.ToString

    ' Verify that the file was not removed since the
    ' Browse button was clicked.
    If System.IO.File.Exists(filePath) = False Then
        MessageBox.Show("File Not Found: " & filePath)
        Exit Sub
    End If

    ' Obtain file information in a string.
    Dim fileInfoText As String = GetTextForOutput(filePath)

    ' Show the file information.
    MessageBox.Show(fileInfoText)

    If saveCheckBox.Checked = True Then
        ' Place the log file in the same folder as the examined file.
        Dim logFolder As String =
            System.IO.Path.GetDirectoryName(filePath)
        Dim logFilePath = System.IO.Path.Combine(logFolder, "log.txt")

        ' Append text to the log file.
        Dim logText As String = "Logged: " & Date.Now.ToString &
            vbCrLf & fileInfoText & vbCrLf & vbCrLf

        System.IO.File.AppendAllText(logFilePath, logText)
    End If
End Sub

Private Function GetTextForOutput(ByVal filePath As String) As String
    ' Verify that the file exists.
    If System.IO.File.Exists(filePath) = False Then
        Throw New Exception("File Not Found: " & filePath)
    End If

    ' Create a new StringBuilder, which is used
    ' to efficiently build strings.
    Dim sb As New System.Text.StringBuilder()

    ' Obtain file information.
    Dim thisFile As New System.IO.FileInfo(filePath)

    ' Add file attributes.
    sb.Append("File: " & thisFile.FullName)
    sb.Append(vbCrLf)
    sb.Append("Modified: " & thisFile.LastWriteTime.ToString)
    sb.Append(vbCrLf)
    sb.Append("Size: " & thisFile.Length.ToString & " bytes")
    sb.Append(vbCrLf)

    ' Open the text file.
    Dim sr As System.IO.StreamReader =
        System.IO.File.OpenText(filePath)

    ' Add the first line from the file.
    If sr.Peek() >= 0 Then
        sb.Append("First Line: " & sr.ReadLine())
    End If
    sr.Close()

    Return sb.ToString
End Function

Private Sub filesListBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles filesListBox.SelectedIndexChanged
    SetEnabled()
End Sub

Private Sub SetEnabled()
    Dim anySelected As Boolean =
        (filesListBox.SelectedItem IsNot Nothing)

    examineButton.Enabled = anySelected
    saveCheckBox.Enabled = anySelected
End Sub

Ayrıca bkz.

• System.IO
• FileSystem
• CurrentDirectory
• İzlenecek yol: .NET Framework Yöntemlerini Kullanarak Dosyaları Düzenleme