Note: The other languages of the website are Google-translated. Back to English

Làm cách nào để sao chép hoặc di chuyển tệp từ thư mục này sang thư mục khác dựa trên danh sách trong Excel? 

Nếu bạn có danh sách tên tệp trong một cột trong trang tính và các tệp nằm trong một thư mục trong trình biên dịch của bạn. Tuy nhiên, bây giờ, bạn cần phải di chuyển hoặc sao chép các tệp này có tên được liệt kê vào trang tính từ thư mục gốc của chúng sang một tệp khác như ảnh chụp màn hình sau. Làm cách nào bạn có thể hoàn thành công việc này nhanh nhất có thể trong Excel?

Sao chép hoặc di chuyển tệp từ thư mục này sang thư mục khác dựa trên danh sách trong Excel với mã VBA


Sao chép hoặc di chuyển tệp từ thư mục này sang thư mục khác dựa trên danh sách trong Excel với mã VBA

Để di chuyển các tệp từ thư mục này sang thư mục khác dựa trên danh sách tên tệp, mã VBA sau đây có thể giúp ích cho bạn, vui lòng thực hiện như sau:

1. Giữ Alt + F11 các phím trong Excel và nó sẽ mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấp chuột Chèn > Mô-đunvà dán mã VBA sau vào Cửa sổ mô-đun.

Mã VBA: Di chuyển tệp từ thư mục này sang thư mục khác dựa trên danh sách trong Excel

Sub movefiles()
'Updateby Extendoffice
    Dim xRg As Range, xCell As Range
    Dim xSFileDlg As FileDialog, xDFileDlg As FileDialog
    Dim xSPathStr As Variant, xDPathStr As Variant
    Dim xVal As String
    On Error Resume Next
    Set xRg = Application.InputBox("Please select the file names:", "KuTools For Excel", ActiveWindow.RangeSelection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xSFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    xSFileDlg.Title = " Please select the original folder:"
    If xSFileDlg.Show <> -1 Then Exit Sub
    xSPathStr = xSFileDlg.SelectedItems.Item(1) & "\"
    Set xDFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    xDFileDlg.Title = " Please select the destination folder:"
    If xDFileDlg.Show <> -1 Then Exit Sub
    xDPathStr = xDFileDlg.SelectedItems.Item(1) & "\"
    For Each xCell In xRg
        xVal = xCell.Value
        If TypeName(xVal) = "String" And xVal <> "" Then
            FileCopy xSPathStr & xVal, xDPathStr & xVal
            Kill xSPathStr & xVal
        End If
    Next
End Sub

3. Và sau đó nhấn F5 để chạy mã này và một hộp nhắc sẽ bật ra để nhắc bạn chọn các ô chứa tên tệp, xem ảnh chụp màn hình:

4. Sau đó nhấn vào OK và trong cửa sổ bật ra, vui lòng chọn thư mục chứa các tệp bạn muốn di chuyển từ đó, xem ảnh chụp màn hình:

5. Và sau đó nhấp vào OK, hãy tiếp tục chọn thư mục đích nơi bạn muốn định vị các tệp trong một cửa sổ bật ra khác, xem ảnh chụp màn hình:

6. Cuối cùng, nhấp OK để đóng cửa sổ và bây giờ, các tệp đã được chuyển vào một thư mục khác mà bạn đã chỉ định dựa trên tên tệp trong danh sách trang tính, xem ảnh chụp màn hình:

Chú thích: Nếu bạn chỉ muốn sao chép các tệp vào một thư mục khác, nhưng vẫn giữ các tệp gốc, vui lòng áp dụng mã VBA bên dưới:

Mã VBA: Sao chép tệp từ thư mục này sang thư mục khác dựa trên danh sách trong Excel

Sub copyfiles()
'Updateby Extendoffice
    Dim xRg As Range, xCell As Range
    Dim xSFileDlg As FileDialog, xDFileDlg As FileDialog
    Dim xSPathStr As Variant, xDPathStr As Variant
    Dim xVal As String
    On Error Resume Next
    Set xRg = Application.InputBox("Please select the file names:", "KuTools For Excel", ActiveWindow.RangeSelection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xSFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    xSFileDlg.Title = "Please select the original folder:"
    If xSFileDlg.Show <> -1 Then Exit Sub
    xSPathStr = xSFileDlg.SelectedItems.Item(1) & "\"
    Set xDFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    xDFileDlg.Title = "Please select the destination folder:"
    If xDFileDlg.Show <> -1 Then Exit Sub
    xDPathStr = xDFileDlg.SelectedItems.Item(1) & "\"
    For Each xCell In xRg
        xVal = xCell.Value
        If TypeName(xVal) = "String" And xVal <> "" Then
            FileCopy xSPathStr & xVal, xDPathStr & xVal
        End If
    Next
End Sub

 


Các công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
officetab dưới cùng

 

Nhận xét (73)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Nó là một macro tốt. Thực sự hữu ích cho tôi. nhưng tôi cần một số macro. cập nhật này được sử dụng để sao chép các tệp từ một thư mục sang một thư mục khác. chúng ta cần sao chép tệp từ thư mục và thư mục con sang một thư mục khác.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Trong thư mục nguồn, tôi muốn đặt nó làm hằng số từ một ô, ví dụ: đường dẫn được nhập vào một ô cụ thể, như A1, sẽ được coi là thư mục nguồn. làm như thế nào?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Era exatamente isso que eu Preisava !!!

Muito Obrigado !!!!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn!!!!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Você não tem noção de como me ajudou com esse script ... Muito bom !!! Obrigado !!!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Hi Guys,

Tôi cần thay đổi như thế nào '' If TypeName (xVal) = "String" And xVal <> "" Then "để di chuyển tệp dựa trên một phần tên tệp.


Cảm ơn trước,
Trân trọng, P
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bạn đã bao giờ tìm hiểu CÁCH sử dụng TÊN TẬP TIN BÊN KHÔNG? Tôi cũng cần điều đó ...
Nói cách khác, nếu tên tệp trong danh sách trang tính Excel là: OW4234TR_J19031.txt (Tôi muốn nó chỉ nhìn vào 5 ký tự cuối cùng "19031" là Ngày Julian và di chuyển một loạt tệp ... bất kỳ thứ gì có Julian Ngày từ năm 19031 đến năm 19075 ..
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi cũng sẽ yêu cầu sửa đổi một phần tên tệp vba. Bạn đã bao giờ nhận được phản hồi?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi quan tâm đến chính xác cùng một giải pháp! Có ai nhận được câu trả lời không? Tôi có danh sách P / N trong một cột và tôi muốn một đoạn mã nằm trong thư mục mẹ có một số thư mục con sau các tệp có tên được chỉ ra bởi danh sách, nhưng chỉ một phần, vì tôi không biết phần mở rộng tệp và trong nhiều trường hợp đối với một P / N duy nhất trong danh sách, tôi có một số tệp được phân biệt bởi sự tồn tại của một hậu tố không phải lúc nào cũng có cùng một mẫu, chẳng hạn như xxxx_1, xxxx_2, xxx (1 ), xxxx [1], xxxx- (a), xxxx_ (b) ...., nhưng tôi cần sao chép vào thư mục đích, tất cả các phiên bản của tệp có trong tên của chúng là P / N. Vui lòng giúp đỡ tôi không thể thực hiện công việc này theo cách thủ công đối với 34078 tệp mà ngày nay được tìm thấy trong thư mục mẹ và thư mục con
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào bạn,
làm thế nào để làm cho mã này sao chép các tệp từ các thư mục con?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bất kỳ mẹo nào về cách sửa đổi mã để thêm thẻ rộng? Tôi có một kho lưu trữ hàng trăm tệp PDF có 10 chữ số và cấp độ sửa đổi (XXXXXXXXXX_REVA). Tôi có thể xuất danh sách tên tệp rất dễ dàng từ hệ thống ERP của chúng tôi, nhưng danh sách này thiếu phần sửa đổi và phần mở rộng tệp. Có cách nào để thêm các thẻ đại diện vào chương trình để bỏ qua mọi thứ NHƯNG là số có 10 chữ số?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi không thể làm cho cả hai phiên bản hoạt động trong Windows 10.


Argggg
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
en el codigo que copia ¿como puedo colorear el nombre de la lista que no encuentre?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Hoạt động tuyệt vời - cảm ơn bạn! Tuy nhiên - >>> Điều này có thể được điều chỉnh để sử dụng TÊN TẬP TIN BÊN KHÔNG? Nếu vậy, bạn có thể giúp chỉ cách làm?
Nói cách khác, nếu tên tệp trong danh sách tên tệp của trang tính Excel là: OW4234TR_J19031.txt (Tôi muốn nó chỉ nhìn vào 5 ký tự cuối cùng "19031" là Ngày Julian và di chuyển một loạt tệp ... ( bất cứ thứ gì có Ngày Julian từ 19092 đến 19120) vào thư mục March .. Nhiệm vụ tổng quát cuối cùng là xác định vị trí bất kỳ tệp nào có ngày Julian cho Tháng Ba và đặt những tệp đó vào Thư mục Tháng Ba Tài chính "06-Tháng Ba", Tháng Tư vào Thư mục tháng 07 "XNUMX-Tháng XNUMX", v.v. để điều chỉnh tài chính theo tháng sau đó có thể diễn ra .. TIA để được trợ giúp bất kỳ ai có thể đề nghị để đẩy nhanh quá trình săn và chọn tốn thời gian này. = -)
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
xin chào bạn có biết cách tìm kiếm trên thư mục con không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Có ai đã tìm ra cách sao chép các tệp nằm trong nhiều thư mục con của thư mục chính và dán vào một thư mục thư mục khác không? Ngoài ra, phương pháp chuyển này chỉ hoạt động cho các thư mục trên ổ C? Tôi đang cố gắng sao chép các tệp từ thư mục bao gồm nhiều thư mục con của chúng tôi, nơi một số tệp được lưu trữ trong Microsoft Sharepoint, vào một thư mục trên ổ C của tôi.

Bất kì sự trợ giúp nào đều được đánh giá cao!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
cám ơn rất nhiều !
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
buenas noches, alguien sabe que tengo que modificar para que me mueva thảmas y no solo archivos?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Mọi cập nhật về cách tìm kiếm trên thư mục và các thư mục con
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Nasr,
Để di chuyển tệp từ thư mục và thư mục con dựa trên giá trị ô, vui lòng áp dụng mã VBA bên dưới:
Hãy cố gắng, hy vọng nó có thể giúp bạn!

Hồ sơ con ()
'Cập nhật bởi Extendoffice
Làm mờ xRg theo phạm vi, xCell theo phạm vi
Làm mờ xSFileDlg dưới dạng FileDialog, xDFileDlg dưới dạng FileDialog
Làm mờ xSPathStr như biến thể, xDPathStr như biến thể
Dim xVal dưới dạng chuỗi
Dim fso As Object, folder1 As Object
'On Error Tiếp tục Tiếp theo
Đặt xRg = Application.InputBox ("Vui lòng chọn tên tệp:", "KuTools For Excel", ActiveWindow.RangeSelection.Address,,,,, 8)
Nếu xRg không có gì thì thoát Sub
Đặt xSFileDlg = Application.FileDialog (msoFileDialogFolderPicker)
xSFileDlg.Title = "Vui lòng chọn thư mục gốc:"
If xSFileDlg.Show <> -1 Then Exit Sub
xSPathStr = xSFileDlg.SelectedItems.Item (1) & "\"
Đặt xDFileDlg = Application.FileDialog (msoFileDialogFolderPicker)
xDFileDlg.Title = "Vui lòng chọn thư mục đích:"
If xDFileDlg.Show <> -1 Then Exit Sub
xDPathStr = xDFileDlg.SelectedItems.Item (1) & "\"
Gọi sMoveFiles (xRg, xSPathStr, xDPathStr)
End Sub

Sub sMoveFiles (xRg As Range, xSPathStr As Variant, xDPathStr As Variant)
Dim xCell As Range
Dim xVal dưới dạng chuỗi
Dim xFolder làm đối tượng
Dim fso làm đối tượng
Làm mờ xF dưới dạng đối tượng
Làm mờ xStr dưới dạng chuỗi
Làm mờ xFS dưới dạng đối tượng
Dim xI dưới dạng số nguyên
On Error Resume Next
Nếu Dir (xDPathStr, vbDirectory) = "" Thì
MkDir (xDPathStr)
Cuối Nếu
Đối với xI = 1 Đến xRg.Count
Đặt xCell = xRg.Item (xI)
xVal = xCell.Value
Nếu TypeName (xVal) = "String" And Not (xVal = "") thì
Về lỗi GoTo E1
If Dir (xSPathStr & xVal, 16) <> Empty Thì
FileCopy xSPathStr & xVal, xDPathStr & xVal
Giết xSPathStr & xVal
Cuối Nếu
Cuối Nếu
E1:
XI tiếp theo
On Error Resume Next
Đặt fso = CreateObject ("Scripting.FileSystemObject")
Đặt xFS = fso.GetFolder (xSPathStr)
Đối với mỗi xF Trong xFS.SubFolders
xStr = xDPathStr & "\" & xF.Name 'Replace (xF.ShortPath, xSPathStr, xDPathStr)
Gọi sMoveFiles (xRg, xF.ShortPath & "\", xStr & "\")
If (CreateObject ("scripting.FileSystemObject"). GetFolder (xStr) .Files.Count = 0) _
Và (CreateObject ("scripting.FileSystemObject"). GetFolder (xStr) .SubFolders.Count = 0) Sau đó
RmDir xStr
Cuối Nếu
Sau
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Đó là hoàn hảo cảm ơn bạn
nhưng điều gì xảy ra nếu tôi chỉ muốn sao chép các tệp không di chuyển nó từ các thư mục con mà không cần tạo các thư mục con trong thư mục đích
ie
thư mục nguồn X: \\ cha
bên trong cha là các thư mục con test1 (tệp A), test2 (tệp B) và test3 (tệp C)
thì thư mục đích là "Y: \\ destination" có tất cả 3 tệp A, B, C không có các thư mục con

Cảm ơn nhiều
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Nasr, bạn đã tìm ra cách thực hiện việc này chưa? Tôi đang xem xét một nhu cầu tương tự vào lúc này.

Sao chép một loạt các tệp từ các thư mục con khác nhau vào một thư mục duy nhất
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
chào Mike
Tôi đã làm NHƯNG gián tiếp, vì vậy những gì tôi đã làm là sửa đổi mã để sao chép các tệp không di chuyển chúng bằng thư mục con
sau đó với tệp CMD di chuyển tệp từ các thư mục con vào thư mục chính sau đó xóa thư mục con trống
Đây là những gì tôi đã làm

Tập tin bản sao phụ ()
'Cập nhật bởi Extendoffice
Làm mờ xRg theo phạm vi, xCell theo phạm vi
Làm mờ xSFileDlg dưới dạng FileDialog, xDFileDlg dưới dạng FileDialog
Làm mờ xSPathStr như biến thể, xDPathStr như biến thể
Dim xVal dưới dạng chuỗi
Dim fso As Object, folder1 As Object
'On Error Tiếp tục Tiếp theo
Đặt xRg = Application.InputBox ("Vui lòng chọn tên tệp:", "KuTools For Excel", ActiveWindow.RangeSelection.Address,,,,, 8)
Nếu xRg không có gì thì thoát Sub
Đặt xSFileDlg = Application.FileDialog (msoFileDialogFolderPicker)
xSFileDlg.Title = "Vui lòng chọn thư mục gốc:"
If xSFileDlg.Show <> -1 Then Exit Sub
xSPathStr = xSFileDlg.SelectedItems.Item (1) & "\"
Đặt xDFileDlg = Application.FileDialog (msoFileDialogFolderPicker)
xDFileDlg.Title = "Vui lòng chọn thư mục đích:"
If xDFileDlg.Show <> -1 Then Exit Sub
xDPathStr = xDFileDlg.SelectedItems.Item (1) & "\"
Gọi sCopyFiles (xRg, xSPathStr, xDPathStr)
End Sub

Sub sCopyFiles (xRg As Range, xSPathStr As Variant, xDPathStr As Variant)
Dim xCell As Range
Dim xVal dưới dạng chuỗi
Dim xFolder làm đối tượng
Dim fso làm đối tượng
Làm mờ xF dưới dạng đối tượng
Làm mờ xStr dưới dạng chuỗi
Làm mờ xFS dưới dạng đối tượng
Dim xI dưới dạng số nguyên
On Error Resume Next
Nếu Dir (xDPathStr, vbDirectory) = "" Thì
MkDir (xDPathStr)
Cuối Nếu
Đối với xI = 1 Đến xRg.Count
Đặt xCell = xRg.Item (xI)
xVal = xCell.Value
Nếu TypeName (xVal) = "String" And Not (xVal = "") thì
Về lỗi GoTo E1
If Dir (xSPathStr & xVal, 16) <> Empty Thì
FileCopy xSPathStr & xVal, xDPathStr & xVal
Cuối Nếu
Cuối Nếu
E1:
XI tiếp theo
On Error Resume Next
Đặt fso = CreateObject ("Scripting.FileSystemObject")
Đặt xFS = fso.GetFolder (xSPathStr)
Đối với mỗi xF Trong xFS.SubFolders
xStr = xDPathStr & "\" & xF.Name 'Replace (xF.ShortPath, xSPathStr, xDPathStr)
Gọi sCopyFiles (xRg, xF.ShortPath & "\", xStr & "\")
If (CreateObject ("scripting.FileSystemObject"). GetFolder (xStr) .Files.Count = 0) _
Và (CreateObject ("scripting.FileSystemObject"). GetFolder (xStr) .SubFolders.Count = 0) Sau đó
RmDir xStr
Cuối Nếu
Sau
End Sub



sau đó copy những dòng sau vào notepad mới rồi lưu lại dưới dạng cmd gọi nó là gì

for / r %% a IN (*. *) do (
di chuyển / y "%% a" "% cd%"
)
for / f "delims =" %% d in ('dir / s / b / ad ^ | sort / r') do rd "%% d"



đảm bảo sao chép mã 4 dòng
hy vọng rằng sự giúp đỡ
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
đảm bảo đặt tệp cmd trong cùng thư mục mà bạn sao chép tệp và thư mục con vào sau đó nhấp đúp vào nó
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bạn có thể đạt được kết quả tương tự chỉ bằng cách sử dụng VBA nếu bạn thêm dấu 'trước & "\" & xF.Name ở dòng bên dưới.
Điều này vẫn sao chép từ các thư mục con nhưng sao chép vào một thư mục cấp duy nhất.

xStr = xDPathStr & "\" & xF.Name 'Replace (xF.ShortPath, xSPathStr, xDPathStr)
Trở thành
xStr = xDPathStr '& "\" & xF.Name' Replace (xF.ShortPath, xSPathStr, xDPathStr)
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào skyyang, tôi muốn sao chép hoặc di chuyển tệp (.jpg, .png) bất kỳ định dạng nào từ thư mục và các thư mục con của nó. Tập lệnh trên đang sao chép toàn bộ thư mục chứa tệp phù hợp
Cảm ơn & Trân trọng,
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, tôi không phải là chuyên gia về VBA nhưng cần Mô-đun của bạn và tôi đã làm như bạn hướng dẫn nhưng không có gì được sao chép từ thư mục nguồn sang thư mục mới. và không có lỗi nào được hiển thị
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Điều gì xảy ra nếu tệp không tồn tại trong thư mục gốc?
mã phá vỡ

Mã sẽ có một dòng để chuyển đến một tham chiếu khác nếu không tồn tại
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Nếu tham chiếu không tồn tại, ngắt mã
dòng nào tôi sẽ phải mã nhảy qua tham chiếu tiếp theo mà không dừng lại
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Làm thế nào điều này có thể được điều chỉnh để dán vào danh sách nhiều đường dẫn tệp thay vì một đường dẫn tại một thời điểm?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, sabin,
Bạn có muốn sao chép và dán các tệp từ nhiều thư mục gốc thay vì chỉ một thư mục không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Vâng làm ơn
Không có bình luận nào được đăng ở đây
Tải thêm
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL