Kết quả 1 đến 10 của 10

Chủ đề: Kỹ thuật sao chép - di chuyển - xóa tập tin

  1. #1
    vivawhite Guest

  2. #2
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    uhm vấn đề này anh dùng thuộc tính file.move ,file.copy hay file.delete . Em thấy anh cũng có kiến thức về lập trình đủ tìm được ví dị nên cũng không làm ví dụ cụ thể. Thân! (Có gì nếu cần em sẽ làm lên sau)

  3. #3
    hangngand Guest
    Cám ơn skyonline nhiều lắm. Nhưng đã thương thì thương cho chót đi vì kỹ năng VBA của mình vẫn ở dạng thời kỳ cổ đại lắm, giúp mình nhé. Nhưng mình vẫn cố thử tự làm xem sao.

  4. #4
    sutuhong123 Guest
    hôm nay đi sinh nhật về muộn nên giờ mới trả lời bài viết của anh được. Nếu để đơn giản hơn thì anh sử dụng phương thức filecopy,Name, kill để giải quyết yêu cầu. em làm tạm một file mẫu để thực hiện thì trước tiên anh tạo tập tin movefile.xls cho vào ổ D để xem kết quả. Em làm cho nó thực hiện trên hai ổ C:\ và D:\ . file em đã gửi kèm.

  5. #5
    nguenthikimchi Guest
    Quá tuyệt vời ! Cám ơn SKYONLINE rất nhiều!

  6. #6
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Cho mình hỏi với :
    Dựa vào chức năng di chuyển, copy file. Mình thử làm 1 chương trình cài đặt đơn giản ("Thực chất là copy từ đĩa CD hay USB sang 1 ổ của máy tính").Tất hiên file điều khiển ("thực hiện cài đặt") là 1 file excel, và quá trình cài đặt ("Copy các file") cũng thể hiện = 1 thanh diễn tiến.
    Liệu giải pháp của mình như vậy có hợp lý không. Nếu còn giải pháp nào hay hơn mong các bạn góp ý.

  7. #7
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Bạn có thể xóa file nào đó từ VBA, bạn sử dụng kill, tham khảo sub sau:


    Mã:
    Sub Killfile()
        Dim MyFile As String  'Khai báo file để xoá 
        On Error Resume Next  'Nếu gặp lỗi do file không có chẳng hạn, nó sẽ bỏ qua      
        MyFile = "c:\folder\filename.xls"    
        kill MyFile
    End Sub
    Ngoài ra bạn có thể xóa nhiều file bằng cách chọn như *.xls, *.tmp,... Thật cẩn thận khi dùng phương pháp này khi dọn dẹp ổ cứng hay test [IMG]images/smilies/biggrin.png[/IMG] .

  8. #8
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Bạn dùng thuộc tính Path của ThisWorkbook



    Mã:
     
    Private Sub copyfile()
    Dim chuoi As String
    chuoi = ThisWorkbook.Path
    chuoi = chuoi & "\"
    chuoi = chuoi + "Filedadoiten.xls"
    On Error resume next
    FileCopy "\\lanh\NAM 2007\CVDEN\New Folder\tháng 1.xls", chuoi
    End Sub
    Nhưng em lại có một câu hỏi khác

    Như các bác đã biết trong 3 hàm điều quản tập tin ( name, filecopy, kill)
    chỉ có thằng kill là chấp nhận các dấu đại diện (VD: *) còn các hàm còn lại thì không

    Vậy em muốn copy tất cả các file .xls trong 1 thư mục mà ko biết tên của file nào thì làm thế nào?

  9. #9
    ntthu.831 Guest
    Mình muốn dùng lệnh filecopy để copy từ địa chỉ lan \\lanh\NAM 2007\CVDEN\New Folder\tháng 1.xls sang thư mục hiện hành của máy thì mình viết thế nào. Mình thử chép các file trên máy thì được nhưng chép mạng lan thì không? mong các bạn giúp dùm. Cám ơn

  10. #10
    voquynh12 Guest
    Trích dẫn Gửi bởi PhanTuHuong
    Bạn có thể xóa file nào đó từ VBA, bạn sử dụng kill, tham khảo sub sau:


    <div class="bbcode_container">
    <div class="bbcode_description">Code:
    </div>
    </div>
    Code của Thầy tuyệt quá [IMG]images/smilies/a35.gif[/IMG] .
    Code trên nó xóa file vĩnh viễn luôn, nếu em muốn nó chỉ xóa tạm thời ( file bị xóa vẫn được lưu trong Recycle Bin ) thì có code nào không ạ ?

    Em xin cảm ơn !

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •