Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hàm] Demo hàm nén mọi file thành file *.zip
#1
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:
[Hình: 1-Nenfile.jpg]

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 !


File đính kèm
.zip   Nenfilezip(maidinhdan).zip (Kích cỡ: 124.51 KB / Tải về: 73)
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname , conmeocon , bvchauthanh
#2
quá tuyệt vời
Chữ ký của tronghieu9792 Xin chào, mình là tronghieu9792, Tham gia http://thuthuataccess.com/forum từ ngày 10-01 -14.
Reply
Những người đã cảm ơn
#3
(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(strZipFileintDot) & "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
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn tronghieu9792
#4
Cảm ơn nhiều maidinhdan nhiều!
Chữ ký của tronghieu9792 Xin chào, mình là tronghieu9792, Tham gia http://thuthuataccess.com/forum từ ngày 10-01 -14.
Reply
Những người đã cảm ơn
#5
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
Chữ ký của conmeocon Xin chào, mình là conmeocon, Tham gia http://thuthuataccess.com/forum từ ngày 09-05 -15.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hàm] [Demo] Hàm đặt pass cho file *.mdb khác maidinhdan 23 1,353 17-10-16, 04:25 PM
Bài mới nhất: maidinhdan
  Hướng Dẫn Demo Tổng hợp hàm Dsum, Dcount, DAvg, Dlookup, DMax, DMin... maidinhdan 5 1,325 23-09-16, 12:57 PM
Bài mới nhất: maidinhdan
  [Hàm] Demo Hàm mở mọi loại file ( Access) maidinhdan 7 1,747 26-05-16, 10:53 AM
Bài mới nhất: lmthu
  Hướng Dẫn Hàm API trong quản lý file và folder maidinhdan 1 293 22-04-16, 09:40 AM
Bài mới nhất: kieu manh
  [Hàm] Demo Hàm đổi tên Table hàng loạt maidinhdan 2 699 18-09-15, 12:33 AM
Bài mới nhất: maidinhdan

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ