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

[prajak]

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

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

[pizza_p]

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

[prajak]

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

[ปิ่นณรงค์]

นำคำสั่งนี้ไปวางใน 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