กระทู้เก่าบอร์ด อ.Yeadram
1,665 1
URL.หัวข้อ /
URL
ขอความช่วยเหลือ vbscript access move specific file
สวัสดีครับ
รบกวนขอความช่วยเหลือ การเขียน vb code access 2010
ผมต้องการย้ายไฟล์ จาก D:\MOVE to D:\MOVE2
(มีไฟล์ .txt 4 ไฟล์ ได้แก่ หนึ่ง a.txt สอง b.txt สาม aa.txt สี่ c.txt)
หากผมต้องการจะย้ายไฟล์ a.txt และ b.txt โดยใส่ข้อมูล a.txt และ b.txt ลงใน table ชื่อ filename ให้ vba code ดึงชื่อไฟล์เฉพาะที่มีอยู่ใน table filename จะพอเป็นไปได้ไหมครับ
ตัวอย่างข้อมูลใน table filename
columns = number มีข้อมูล 1 และ 2
columns = name มีข้อมูล a.txt และ b.txt
ขอบคุณครับ
รบกวนขอความช่วยเหลือ การเขียน vb code access 2010
ผมต้องการย้ายไฟล์ จาก D:\MOVE to D:\MOVE2
(มีไฟล์ .txt 4 ไฟล์ ได้แก่ หนึ่ง a.txt สอง b.txt สาม aa.txt สี่ c.txt)
หากผมต้องการจะย้ายไฟล์ a.txt และ b.txt โดยใส่ข้อมูล a.txt และ b.txt ลงใน table ชื่อ filename ให้ vba code ดึงชื่อไฟล์เฉพาะที่มีอยู่ใน table filename จะพอเป็นไปได้ไหมครับ
ตัวอย่างข้อมูลใน table filename
columns = number มีข้อมูล 1 และ 2
columns = name มีข้อมูล a.txt และ b.txt
ขอบคุณครับ
1 Reply in this Topic. Dispaly 1 pages and you are on page number 1
Time: 0.3288s
ในแต่ละรอบของลูป ใช้คำสั่งที่ถนัด เช่นการสร้างตัวแปรออปเจคแบบ filesystemobject หรือออปเจคแบบ wsscript แล้วค่อยใช้ ตัวแปรนั้นรันคำสั่งให้ move files
ส่วนในตัวอย่างนี้ ผมจะลองใช้คำสั่ง Dos หรือที่เรียกว่า Command line
Dim Rs As New ADODB.RecordsetDim Conn As New ADODB.Connection
Set Conn = CurrentProject.Connection
Rs.Open "Select * From table1", Conn, 3, 1
Do While Not Rs.EOF And Not Rs.BOF
Shell "cmd.exe /c ""move D:\MOVE\" & Rs(1) & " D:\MOVE2\" & Rs(1) & """"
Rs.MoveNext
Loop
Rs.Close
Set Rs = Nothing
Set Conn = Nothing
คำสั่งสำคัญอยู่ที่ Shell นั่นแหละครับ ส่วนที่เหลือ อื่นๆ ก็คือเรื่องของการวนลูปตามจำนวนเรคคอร์ด ทั่วๆ ไปครับ