• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Demo hàm nén mọi file thành file *.zip

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thư Viện Hàm
  • [Hàm] Demo hàm nén mọi file thành file *.zip
• Demo hàm nén mọi file thành file *.zip

• Demo hàm nén mọi file thành file *.zip

  maidinhdan > 15-04-15, 09:00 PM

  Như lời đã hứa hôm nay là bài thứ 3 nói về Hàm nén tập tin thành file *.zip
  
  Tác dụng: Nén bất kỳ file nào thành file *.zip
  Ứng dụng:
  + Có thể kết hợp với bakup file để nén làm cho dữ liệu nhỏ hơn chút.
  + Kết hợp với Demo của mình về gửi Email có thêm file đính kèm.
  ....
  Tích hợp: Bạn có thể tìm thấy 1 đoạn code về truy xuất đăng ký thư viện DLL trực tiếp đối với các đoạn code mà trên các máy thiếu thư viện tham chiếu.
  
  Hình mình họa:
  
  
  Demo đính kèm
  
  
  Bài kế tiếp sẽ giới thiệu: Hàm giải nén file *.zip ( Thật ra có đính kèm code rồi, nhưng chưa làm Demo.
  
  Thân ái !

• RE: Demo hàm nén mọi file thành file *.zip

  tronghieu9792 > 16-04-15, 04:44 PM

  quá tuyệt vời

• RE: Demo hàm nén mọi file thành file *.zip

  maidinhdan > 17-07-15, 08:23 PM

  (17-07-15, 11:09 AM)tronghieu9792 Đã viết: Ý mình là từ thư mục D:\QTBH\Database, sau khi nén file từ chương trình của maidinhdan thì file Database nó sẽ lưu ở D:\Database (file đã nén không nắm trong thư mục  D:\QTBH\Database nữa). cảm ơn maidinhdan.

  
  
  Bạn mở form lên quan sát đoạn code này:
  
  

  Mã PHP:

  Private Sub txtIn_AfterUpdate()
   Dim strZipFile       As String
   Dim intDot           As Integer
 
   strZipFile = Me.txtIn
   intDot = InStr(strZipFile, ".")
   If intDot <> 0 Then
      strZipFile = Left(strZipFile, intDot) & "zip"
      Me.txtOut = strZipFile
   End If
 End Sub 


  
  Sửa thành
  
  

  Mã PHP:

  Private Sub txtIn_AfterUpdate()
      Me.txtOut = "D:\Database" & "Tên file se đặt" & ".zip"
End sub 


  
  
  Điều kiện thư mục D:\Database phải tồn tại. Nếu không phải cần đến 1 hàm tự tạo thư mục. Phần này bàn sau.
  
  Ghi chú: Điểm yếu của nó, là khi nén nó sẽ tính hết tất cả các thư mục mà dẫn đến file cần nèn ( giồng như lưu đường dẫn lại vậy)
  
  * Cuối cùng, mình nghĩ cái demo này không thích hợp cho bạn. Vì vậy bạn tải demo dưới đây để làm, có cả chức năng backup, rất tiện và đáp ứng tất cả nhưng gì bạn yêu câu.
  
  Link: Tải xuống
  
  Tác giả : Mattroinguquen
  
  Nếu cần thảo luận về file demo này thì vào đây: http://thuthuataccess.com/forum/thread-6...l#pid26719
  
  
  Chỉ có bấy nhiêu, chúc bạn thành công

• RE: Demo hàm nén mọi file thành file *.zip

  tronghieu9792 > 31-07-15, 02:12 PM

  Cảm ơn nhiều maidinhdan nhiều!

• RE: Demo hàm nén mọi file thành file *.zip

  conmeocon > 20-09-15, 11:57 AM

  Cám ơn maidinhdan nhiều.
  Có thể giúp : nén tất cả các file có trong thư mục có sẵn (không nén các thư mục con trong thư mục này) sang thư mục khác.
  Rất mong maidinhdan giúp mình
• Bài trước Bài tiếp