1. 程式人生 > >VB.NET建立資料夾並複製檔案的程式碼

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