ใครมี code zip file ขอหน่อยครับ

[Krathok-man]

code ที่ zip  file  แค่ file เดียวครับ  ไม่ต้องเป็น folder

[สันติสุข]

ผมจะใช้คำสั่งแบบ command-line ของโปรแกรมที่ทำการ zip ดังนั้นขึ้นกับว่าโปรแกรม zip ที่ใช้นั้น มี command-line หรือไม่ ถ้ามี คำสั่งมีรูปแบบเป็นอย่างไร ส่วนที่ผมใช้คือ 7-zip เวลาสั่ง zip ก็คือ

if dir("drive:\...ชื่อไฟล์.zip") <> "" then kill "drive:\...ชื่อไฟล์.zip" ' ลบ zip เดิมก่อน
shell """c:\program files\7-zip\7z.exe"" a ""drive:\...ชื่อไฟล์.zip"" ""drive:\...ชื่อไฟล์ที่ต้องการ zip"""

[Krathok-man]

รบกวน  อ.  อีกครั้ง   เครื่องหมาย  double quote  มันเยอะมากจนผม งง  ว่า คั่นระหว่างตรง  ไหน  กรณีที่ผมมีตัวแปร  path ที่เป็น  String อยู่แล้ว สมมุติชื่อ  PathString
ส่วน File ที่จะ Zip  ชื่อ   Work.mdb   ดังนั้น  ถ้ารวม Path+ชื่อ จะเท่ากับ   Path &Work.mdb
จะเขียนได้แบบไหนครับ ผมหาจุดคั่น  double quote   ไม่ถูกเลยครับ

Shell """c:\program files\7-zip\7z.exe"" a "..................................

[สันติสุข]

Shell """c:\program files\7-zip\7z.exe"" a """ & PathString & "\" & "Work.zip" & """ """ & PathString  & "\" & "Work.mdb" & """ "
กรณีข้อความใน PathString มีเครื่องหมาย \ ปิดท้ายอยู่แล้ว ก็ให้เปลี่ยน & "\" & ทั้ง 2 ตำแหน่งเป็น & ก็พอครับ