สอบถามการเลือกรูปภาพประกอบจาก path หนึ่งมาเก็บไว้อีก path หนึ่ง



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

14 ก.พ. 61 , 10:12:08
อ่าน 635 ครั้ง

prajak

รบกวนสอบถามนะครับ รายการแต่ละรายการผมจะให้มีรูปภาพประกอบ แต่จะไม่ใช่เป็นการแนบไฟล์นะครับ เนื่องจากจะทำให้databaseใหญ่ขึ้นเรื่อย จะใช้วิธีการชี้ไปยัง path ของ server กลางที่เก็บรูปภาพไว้ แต่ขั้นตอนมันจะลำบากนิดหนึ่งตรงที่ว่า เวลาที่userใช้งานแต่ละเครื่องจะต้อง copy รูปไปวางไว้ยัง path กลางก่อนซึ่งดูจะไม่ค่อยสะดวกต่อuser เท่าไหร่
ความต้องการของผมคือ เมื่อuserกด browse ตามรูป

ก็สามารถไปเลือกไฟล์รูปภาพที่อยู่ในเครื่องของตัวเอง แล้วไฟล์รูปที่เลือกก็จะไปเก็บไว้ใน path กลางเองเลย สามารถทำได้หรือเปล่าครับ
อันนี้จะเป็น code เกี่ยวกับการเรียก path เก็บรูป






 

14 ก.พ. 61 , 12:09:19
ตอบกลับ #1

pizza_p

VBA มีคำสั่ง FileCopy SourceFile, DestinationFile ใช้สำหรับ copy file ไปยังที่เราต้องการได้ เช่น FileCopy "C:\pic1.jpg", "D:\pic1.jpg"

 

14 ก.พ. 61 , 14:08:52
ตอบกลับ #2

prajak

ไม่ทราบพอจะมีตัวอย่างคำสั่งบ้างไหมครับ

 

15 ก.พ. 61 , 08:27:07
ตอบกลับ #3

ปิ่นณรงค์

นำคำสั่งนี้ไปวางใน Module
โค๊ด: [Select]
Function fCopy(strDest As String, strSrc As String)
Dim fs As Object, strTime As String
Set fs = CreateObject("Scripting.FileSystemObject")
fs.copyfile strDest, strSrc, True
End Function


นำคำสั่งนี้ไปวางใน Event ที่ต้องการ ใช้ Call ....... กะได้ครับหรือเอาไปดัดแปลงตามสะดวก
โค๊ด: [Select]
Sub CopyFile
Dim fold
        Set fold = CreateObject("Scripting.FileSystemObject")
        newFDR = "D:\........." 'ใส่ Path ที่จะเก็บไฟลฺ์ ถ้ายังไม่มี Folder ให้สร้างใหม่ตามที่เรากำหนด
        If Not fold.FolderExists(newFDR) Then
        fold.CreateFolder (newFDR)
        End If
        fCopy "C:\pic1.jpg", "D:\pic1.jpg" 'ตัวอย่างนี้ให้ Copy รูปจาก C:\ ไป D:\ เลือกตำแหน่งใหม่ได้ตามต้องการ

End sub
« แก้ไขครั้งสุดท้าย: 15 ก.พ. 61 , 08:31:30 โดย bookungth »
:love: :grin:
 


บอร์ดเรียนรู้ Access สำหรับคนไทย