กระทู้เก่าบอร์ด อ.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 ไปไว้ที่ปลายทางเลย
รบกวนพี่ๆ แนะนำด้วยครับ
ขอบพระคุณมากๆ ครับ
จาก 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
Time: 0.2920s
if dir(strDest)<>Null then
มีไฟล์อยุ่แล้ว
else
ยังไม่มีไฟล์
end if