VB.NET建立資料夾並複製檔案的程式碼
'新增記錄時必須給該記錄建立存檔檔案目錄 Dim sml As String = Me.LinkLabel1.Text '呼叫窗體上的存檔目錄 Dim file_name() As String If Not Directory.Exists(sml) Then '檢測是否存在目錄 Directory.CreateDirectory(sml) '按路徑建立新的資料夾 For i = 0 To ListBox1.Items.Count - 1 file_name = Split(ListBox1.Items(i).ToString, "\") '獲取檔名 FileCopy((ListBox1.Items(i).ToString), sml & "\" & file_name(UBound(file_name))) '複製檔案到新的路徑 Next Else For i = 0 To ListBox1.Items.Count - 1 file_name = Split(ListBox1.Items(i).ToString, "\") '獲取檔名 FileCopy((ListBox1.Items(i).ToString), sml & "\" & file_name(UBound(file_name))) '複製檔案到新的路徑 Next End If