โปรแกรมสำรองข้อมูลอัตโนมัติ - Auto Backup Program:
|
 โปรแกรมแบบ Full Version ที่ออกแบบมานั้น จะถูกตั้งเวลาให้มัน Compact และ Repair Access DataBase จากนั้นก็จะบีบอัดไฟล์ให้เล็กลง (Zip) แล้วค่อยสำรองข้อมูลโดยอัตโนมัติ หากไฟล์เดิมพังเสียหายก็สามารถ Restore กลับไปยังที่เดิมที่ๆมันอยู่ได้ (โปรแกรมมันจะถูกผนวกเข้าไปในซอฟท์แวร์ทุกตัวที่ผมพัฒนาขึ้นมา)
สามารถหาข้อมูลเพิ่มเติมของการบีบอัดไฟล์ได้จาก: Jean-loup Gailly and Mark Adler
|
|
สำหรับเวอร์ชั่นของฟรีนี้ เป็นแบบ Lite หรือ เบาๆแต่สะใจในรสชาติน่ะครับ แค่นี้ก็เหมาะสำหรับเราๆท่านๆแล้วครับ อาทิเช่น คนที่ทำ Thesis โปรเจค วิทยานิพนธ์ เอาโปรแกรมนี้ไปใช้ ท่านจะได้ไม่สะอื้นในภายหลัง เอ้ามาดูีขีดความสามารถในการทำงานของโปรแกรมดังต่อไปนี้คือ ..... แอ่น แอ้น .....
- หลังจากที่คุณติดตั้งโปรแกรมเรียบร้อยแล้ว โปรแกรมจะถูกติดตั้งไว้ที่กลุ่ม Startup ให้โดยอัตโนมัติ ดังนั้นเมื่อคุณเปิดคอมพิวเตอร์ขึ้นมาใช้งาน โปรแกรมนี้ก็จะเริ่มต้นการทำงานได้ทันทีทุกครั้งน่ะขอรับกระผม
- โปรแกรมจะทำงานในลักษณะอยู่เบื้องหลัง (Background Process) ซึ่ง (คง) จะไม่มารบกวนการทำงานโดยปกติสุขของคอมพิวเตอร์ (เว้นแต่ปริมาณข้อมูลมันเยอะแยะมโหฬาร มันย่อมมีผลกระทบแน่ล่ะครับ)
- เลือกแบบสำรองข้อมูลทันทีด้วยตัวเอง (Manual) หรือ ตั้งวัน และ เวลาในการสำรองข้อมูลแบบอัตโนมัติก็ได้
- สามารถสำรองไฟล์ข้อมูลได้ทุกชนิด และไม่ว่าคุณกำลังเปิดไฟล์ที่ต้องการจะสำรองข้อมูลใช้งานอยู่หรือไม่ก็ตามที มันจะสำรองข้อมูลให้ได้ทันทีเลย
- สามารถใช้งานในระบบเครือข่ายคอมพิวเตอร์ได้ สำหรับบางเครื่องที่ทำพาร์ทิชั่นเป็นแบบ NTFS หรือพวกที่มีระบบรักษาความปลอดภัย ก็อย่าลืมตั้งค่า Security ด้วยล่ะครับท่าน
- การตั้งค่าเวลาจะนับเป็นจำนวนชั่วโมง และ นาที โดยค่าต่ำสุดที่จะตั้งเวลาได้คือ 1 นาที (00:01) แบบนี้น่าจะดีกว่าการตั้งเป็นแบบเวลานาฬิกาครับ เพราะวันหนึ่งคุณจะสำรองข้อมูลสักกี่ครั้งก็ได้ แต่คงไม่ทุกๆนาทีหรอกมั้งครับ
- สามารถเลือกวันก็ได้ จะเอาเฉพาะวันจันทร์ วันอังคาร หรือ ... ใน 7 วันนั่นแหละ้ครับ
- ไฟล์ที่ถูกสำรองเอาไว้ จะถูกเขียนทับกันไปเรื่อยๆ หากท่านต้องการให้มี Option ในการเทียบค่าวันเวลา ขนาดในการสำรองข้อมูล หรืออื่นๆแบบ Full Version แฮะๆ ไม่ต้องจ่ายตังค์หรอกครับ แค่จ้างผมพัฒนาโปรแกรมสักตัว รับรองสารพัดสิ่งที่แจกให้เพิ่มเติม ตามมาอีกอื้อ
- สามารถสำรองข้อมูลได้พร้อมกันหลายๆไฟล์ หรือ โฟลเดอร์ย่อยๆ (Sub Folder หรือ Sub Directory) ด้วยก็ได้
- มีรายงานสถานะทุกครั้งในการสำรองข้อมูล (Event viewer หรือ Logging file)
หมายเหตุ:
การบีบอัดไฟล์ (คราวหน้าจะนำ Code และ การนำไปใช้มาว่ากันต่อไป) และ การ Restore ไม่ได้ผนวกเข้ามาน่ะครับ หากคุณต้องการข้อมูลที่สำรองไว้ไปใช้งาน ก็ต้องคัดลอกไปด้วยตัวเองครับ
ใช้งานในแบบง่ายๆ จึงไร้ Help ให้ครับ
  คลิ๊กเมาส์ขวาที่รูปไอคอนของโปรแกรม
 การตั้งค่าโปรแกรมให้ทำการสำรองข้อมูลแบบอัตโนมัติ
 เลือกไฟล์ หรือ โฟลเดอร์ต้นฉบับที่ต้องการสำรองข้อมูล
 เลือกตำแหน่งที่ต้องการสำรองข้อมูล
 ทุกครั้งที่ทำการสำรองข้อมูลจะแสดงสถานะการทำงาน และ บันทึกผลใน Logging File
โค้ด Visual Basic 6 ที่ต้องใช้ในการคัดลอกไฟล์ เป็น Code ที่อาศัย API เข้าช่วยน่ะครับ (น่าจะดีกว่าคำสั่ง FileCopy)
Public Type SHFILEOPSTRUCT
hWnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Boolean
hNameMappings As Long
lpszProgressTitle As String
End Type
Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Public Const FO_COPY = &H2
Public Const FOF_ALLOWUNDO = &H40
Public Const FOF_NOCONFIRMATION = &H10
Public Counts As Long
Public Sub CopyFile2Backup(SourceFile As String, DestinationFile As String)
Dim lngReturn As Long
Dim typFileOperation As SHFILEOPSTRUCT
With typFileOperation
.hWnd = 0
.wFunc = FO_COPY ' ทำการคัดลอกข้อมูล
.pFrom = SourceFile & vbNullChar & vbNullChar ' Source file
.pTo = DestinationFile & vbNullChar & vbNullChar ' Destination file
.fFlags = FOF_NOCONFIRMATION + FOF_ALLOWUNDO ' ให้เขียนทับไฟล์ลงไปได้เลย
End With
lngReturn = SHFileOperation(typFileOperation)
End Sub
' แถมอีกหน่อย ... ฟังค์ชั่นช่วยตรวจสอบว่ามีไฟล์เดิมอยู่หรือไม่ (ป้องกันการเขียนทับนั่นเอง ... แต่งานนี้ผมไม่ใช้ครับ)
Public Function FileExists(ByVal sPathName As String) As Boolean
On Error Resume Next
FileExists = (GetAttr(sPathName) And vbNormal) = vbNormal ' ฮา ... กลิ้งครับ เคยเห็น Code แบบนี้มั้ย
On Error GoTo 0
End Function
' ฟังค์ชั่นที่ส่งค่าไปเป็นแบบ Full path แต่คืืนค่ากลับมาเฉพาะชื่อไฟล์ ทำให้แยกได้ว่าต้องการจะสำรองข้อมูลไฟล์ใด
Public Function ReturnFileName(ByVal sPathName As String) As String
' เช่น "C:\Test\Data\TestData.mdb" ---> จะได้ค่า (String) กลับคืนเป็น "TestData.mdb"
Dim cnt As Integer
For cnt = Len(sPathName) To 1 Step -1
If Mid(sPathName, cnt, 1) = "\" Then ' จาก Path จะถอยหลังจากขวามาซ้าย จนกว่าจะเจอเครื่องหมาย "\" ก็หยุดทำงาน
ReturnFileName = Right(sPathName, Len(sPathName) - cnt)
Exit Function
End If
Next cnt
End Function
*** สามารถหาข้อมูลเพิ่มเติมได้จาก MSDN Library ***
| 
