เปลี่ยนจาก

ลองเปลี่ยนจาก

'Get Folder name
strFolderName = BrowseFolder("เลือกโฟล์เดอร์ที่เก็บรูปภาพ?")

ไปเป็น

'Get Folder name
strFolderName = "\\Handdy\photo"

ดูครับ

อาจารย์ค่ะ แล้วที่อาจารย์แนะนำ ใช้กับปุ่ม Show Pics แล้วถ้าเป็นแบบใช้ปุ่ม Select Pic File ล่ะค่ะ จะกำหนดอย่างไรค่า

ถ้าต้องการที่จำกำหนด Path ของห้องที่กำหนด
ต้องเข้าไปแก้ไขฟังก์ชัน GetOpenFile() ใน Module ชื่อ modOpenFile ดังนี้ครับ

Function GetOpenFile(strFileType As String, strFileTypeDesc As String) _
As Variant
Dim strFilter As String
Dim lngFlags As Long
Dim varFileName As Variant
' Specify that the chosen file must already exist,
' don't change directories when you're done
' Also, don't bother displaying
' the read-only box. It'll only confuse people.
lngFlags = ahtOFN_FILEMUSTEXIST Or _
ahtOFN_HIDEREADONLY Or ahtOFN_NOCHANGEDIR


' Define the filter string
strFilter = ahtAddFilterItem(strFilter, _
strFileTypeDesc, strFileType)
' Now actually call to get the file name.
varFileName = ahtCommonFileOpenSave( _
OpenFile:=True, _
Filter:=strFilter, _
Flags:=lngFlags, _
InitialDir:="\\Handdy\photo" , _
DialogTitle:="เลือกไฟล์รูปภาพที่ต้องการ ...")

If Not IsNull(varFileName) Then
varFileName = TrimNull(varFileName)
End If
GetOpenFile = varFileName
End Function *** Edited by Supap Chaiya *** 5/27/2003 10:37:06 PM

ใช้ได้แล้วค่ะ ขอบคุณอาจารย์สุภาพมากค่ะ ขอให้อาจารย์มีสุขภาพแข็งแรงตลอดไป