VB學習心得10.檔案操作與I-O作業

2013-04-16

摘要:VB學習心得10.檔案操作與I-O作業

參考書籍:Visual Basic 2008程式設計學習教本

16-49頁

4.建立一支程式,於表單配置單一按鈕,當使用者按下時,會取得C根目錄下的子目錄,並顯示在畫面上

Imports System.IO
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dirsallString As String()
        Dim dirstring As String
        dirsallString = Directory.GetDirectories("C:\")
        Dim message As String = ""
        For Each dirstring In dirsallString
            message += (dirstring + vbCrLf)
        Next
        TextBox1.Text = message
    End Sub
End Class

7.建立一支程式,提供文字方塊,讓使用者指定所要刪除的目錄,另外配置一個按鈕,當使用者按下按鈕時,檢視文字方塊所指定的目錄是否底下存在子目錄,是的話則禁止刪除

Imports System.IO
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim pathString As String
        pathString = TextBox1.Text
        Try

            If Directory.Exists(pathString) = False Or pathString.Length = 0 Then
                MsgBox("指定刪除的目錄路徑不存在")
                Exit Sub
            End If

            Directory.Delete(pathString)
            MsgBox("指定的目錄已被刪除")

        Catch ex As IOException
            MsgBox("含有子目錄禁止刪除")
        End Try
    End Sub
End Class

關於VB的文章到這篇就結束了

給自己也給贈書活動一個交待了

以後的文章會用不同的語言去寫

如果有的話@@~畢竟這邊好像不能設密碼或給特定的人看..怕有些觸法的問題產生

後面的文章大概就想一想再用自己的想法慢慢寫出來了

VB.NET

回首頁