รบกวนเรื่อง การตรวจสอบไฟล์ Backup Database
กระทู้เก่าบอร์ด อ.Yeadram

 1,181   1
URL.หัวข้อ / URL
รบกวนเรื่อง การตรวจสอบไฟล์ Backup Database

รบกวนเรื่อง การตรวจสอบไฟล์ Backup Database
จาก Code ดังกล่าว เป็นการ Backup Database จากที่หนึ่ง
ไปจัดเก็บไว้ที่ Dir/Folder อีกที่หนึ่ง ดังนี้

Dim strSource As String
Dim strDest As String
Dim MyFile As String

MyFile = Format(DateAdd("m", -1, Date), "YYYY-MM")
strSource = "D:\NYK ITF Project\ITF (Metal One) Project_BE.mdb"
strDest = "D:\NYK ITF Project\Access_Test_Link_Database\ITF (Metal One) Project_BE" & MyFile & ".mdb"

FileCopy strSource, strDest

ปัญหาคือ ผมอยากตรวจสอบก่อนว่าที่ Dir/Folder ปลายทาง
มีไฟล์ชื่อดังกล่าวแล้ว หรือ ยัง (ป้องการการ Copy ไฟล์ซ้ำ)
ถ้ามี ให้มี MsgBox มาบอกเพื่อ ถ้าต้องการทำต่อกด OK ได้ไม่ทำ กด Cancell
หรือ ถ้าไม่มีไฟล์ปลายทาง ก็ให้ทำการ Copy ไฟล์ Backup ไปไว้ที่ปลายทางเลย

รบกวนพี่ๆ แนะนำด้วยครับ
ขอบพระคุณมากๆ ครับ

1 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R01541
น่ากลัวมากครับ ชือพาธ มันมีช่องว่างด้วย

if dir(strDest)<>Null then
มีไฟล์อยุ่แล้ว
else
ยังไม่มีไฟล์
end if
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.2920s