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

  • Makale

Bu izlenecek yol, Visual Basic'teki dosya G/Ç'sinin temellerine giriş niteliğindedir. Bir dizindeki metin dosyalarını listeleyen ve inceleyen küçük bir uygulamanın nasıl oluşturulacağını açıklar. Uygulama, seçilen her metin dosyası için dosya özniteliklerini ve ilk içerik satırını sağlar. Günlük dosyasına bilgi yazma seçeneği vardır.

Bu izlenecek yol, Visual Basic'te kullanılabilen üyelerini My.Computer.FileSystem Objectkullanır. Daha fazla bilgi edinmek için bkz. FileSystem. İzlenecek yol sonunda, ad alanından sınıfları System.IO kullanan eşdeğer bir örnek sağlanır.

Not

Bilgisayarınız, aşağıdaki yönergelerde yer alan Visual Studio kullanıcı arabirimi öğelerinden bazıları için farklı adlar veya konumlar gösterebilir. Sahip olduğunuz Visual Studio sürümü ve kullandığınız ayarlar bu öğeleri belirler. Daha fazla bilgi için bkz. IDE’yi kişiselleştirme.

Proje oluşturmak için

  1. Dosya menüsünde Yeni Proje'ye tıklayın.

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

  2. Yüklü Şablonlar bölmesinde Visual Basic'i genişletin ve Windows'a tıklayın. Ortadaki Şablonlar bölmesinde Windows Forms Uygulaması'na tıklayın.

  3. Ad kutusuna proje adını ayarlamak için yazın FileExplorer ve tamam'a tıklayın.

    Visual Studio projeyi Çözüm Gezgini ekler ve Windows Forms Tasarım Aracı açılır.

  4. Aşağıdaki tablodaki 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ı Kaydet
    Folderbrowserdialog Ad FolderBrowserDialog1

Klasör seçmek ve klasördeki dosyaları listelemek için

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

  2. Olay işleyicisine Click aşağıdaki 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ıktan sonra özelliği, SelectedPath bir sonraki adımda eklenen yöntemine ListFiles bağımsız değişken olarak gönderilir.

  3. Aşağıdaki ListFiles yöntemi 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 ilk olarak ListBox'ını temizler.

    Yöntemi GetFiles daha sonra dizindeki her dosya için bir dize koleksiyonu alır. yöntemi, GetFiles belirli bir desenle eşleşen dosyaları almak için bir arama deseni bağımsız değişkenini kabul eder. Bu örnekte, yalnızca uzantı .txt olan dosyalar döndürülür.

    Yöntemi tarafından GetFiles döndürülen 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, .txt dosyaları içeren bir klasöre gidin ve klasörü seçip Tamam'a tıklayın.

    , ListBox seçili klasördeki .txt dosyalarının listesini içerir.

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

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

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

  2. Olay işleyicisine Click aşağıdaki 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 ListBoxbir öğenin seçildiğini doğrular. Ardından dosyasından dosya yolu girdisini ListBoxalır. FileExists yöntemi, dosyanın hala var olup olmadığını denetlemek için kullanılır.

    Dosya yolu, bir sonraki adımda eklenen yöntemine GetTextForOutput bağımsız değişken olarak gönderilir. 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 GetTextForOutput yöntemi 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 parametrelerini almak için yöntemini kullanır GetFileInfo . Dosya parametreleri bir StringBuilderöğesine eklenir.

    yöntemi, OpenTextFileReader dosya içeriğini içine StreamReaderokur. İçindekilerin ilk satırı'ndan StreamReader alınır ve öğesine StringBuildereklenir.

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

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

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

Günlük girdisi eklemek için

  1. Olay işleyicisinin examineButton_Click sonuna aşağıdaki 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 yerleştirmek için günlük dosyası yolunu ayarlar. Günlük girdisinin metni geçerli tarih ve saate ve ardından dosya bilgilerine ayarlanır.

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

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

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

Geçerli dizini kullanmak için

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

  2. Olay işleyicisine 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. İlk kez Gözat'a tıkladığınızda, geçerli dizinde Klasöre Gözat iletişim kutusu açılır.

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

Denetimleri seçmeli olarak etkinleştirmek için

  1. Aşağıdaki SetEnabled yöntemi 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 ListBoxbir öğenin seçili olup olmamasına bağlı olarak denetimleri etkinleştirir veya devre dışı bırakır.

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

  3. Yeni filesListBox_SelectedIndexChanged olay işleyicisine öğesine SetEnabled bir çağrı ekleyin.

  4. Olay işleyicisinin browseButton_Click sonuna bir çağrı SetEnabled ekleyin.

  5. Olay işleyicisinin Form1_Load sonuna bir çağrı SetEnabled ekleyin.

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

My.Computer.FileSystem kullanarak tam örnek

Aşağıda tam ö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, nesneleri kullanmak yerine ad alanından System.IO 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.