ตัวอย่าง
'สร้าง folder ที่ชื่อว่า "File 2009"
If Len(Dir("D:\File " & yy, vbDirectory)) = 0 Then MkDir "D:\File " & yy

'สร้าง folder ที่ชื่อว่า "File Excel 2009" ต่อจาก "D:\File 2009"
If Len(Dir("D:\File " & yy & "\File Excel " & yy, vbDirectory)) = 0 Then MkDir "D:\File " & yy & "\File Excel " & yy

ต้องใส่เว้นวรรค ให้ถูกด้วยนะครับ
ประมาณนี้ครับ

ท่านอาจารย์ อุดมโชค ขอบคุณครับทำได้แล้วเก่งจริงๆเลย ขอบคุณนะครับ

ขออนุญาตคุณวิษณุร่วมแจมด้วยคนนะคะ ความต้องกาของหนูจะคล้ายๆกับของคุณวิษณุค่ะ แต่ของหนูคือต้องการทำปุ่มกดบนฟอร์ม เหตุการณ์คือเมื่อคลิกที่ปุ่มแล้วให้เปิดโฟลเดอร์ที่เรากำหนดเลย สมมติว่าชื่อ mydata ซึ่งเป็นซับโฟลเดอร์อยู่ในโฟลเดอร์หลักชื่อ datacenter อีกที เก็บอยู่ในไดร์ฟ D:\ ค่ะ ปัจจุบันหนูใช้วิธี Link ซึ่งมันไม่ค่อยสะดวกเลย ไม่ทราบว่าสามารถทำได้ไหมคะ
หนูอยากเอารูปมาให้ดูบ้างค่ะ แต่ไม่ทราบจะแทรกรูปได้อย่างไร(ทำไม่เป็น)

อ้างข้อความคำถามคุณมาลีนะครับ

"เมื่อคลิกที่ปุ่มแล้วให้เปิดโฟลเดอร์ที่เรากำหนดเลย"
-- อันนี้น่าจะใช้การรัน command line ช่วยได้
shell "explorer /e, D:\datacenter\mydata"

"ปัจจุบันหนูใช้วิธี Link"
-- พออ่านคำนี้แล้ว เริ่มงง เอ๊ะมันงานเดียวกันหรือเปล่านี่ สงสัยต้องดูรูปแล้วจริงๆ

วิธีแทรกรูป
- เตรียมรูปเอาไว้ในเครื่องครับ ของเราให้พร้อม
- เขียนข้อความในกล่องตอบข้อความ เมื่อจะแทรกรูป ให้กดปุ่มไอคอน รูปต้นไม้กับลูกศรชี้ขึ้น จะมีป๊อบอัพขึ้นมาให้ทำตามคำแนะนำในนั้นครับ
(ป๊อบอัพที่โผล่มา จะมีปุ่มคำสั่งสามปุ่ม หากเห็นไม่ครบ อาจต้องลากขอบของมันยืดขยายด้วย)
- ทำการ browse หาไฟล์ แล้วกดปุ่ม OK
- สคริปต์ของเว็บบอร์ด จะทำการอัพโหลดไฟล์ให้ อาจจะใช้เวลาสักพัก (ขึ้นอยู่กับความจุไฟล์ + ความเร็วเน็ต)
- เมื่อเสร็จ ป๊อบอัพจะหายไป พร้อมกับที่กล่องข้อความที่กำลังโพสต์อยู่นั้น จะมีโค้ด html เพิ่มมาให้อัตโนมัติครับ

ตามตัวอย่างในภาพ ปัจจุบันหนูต้องสร้าง Link ในลักษณะนี้แหละค่ะ เพื่อไปยังโฟลเดอร์ที่ต้องการ

แทรกรูปตามที่อาจารย์แนะนำแล้ว (กดปุ่มไอคอน รูปต้นไม้กับลูกศรชี้ขึ้น) แล้วจะมีกรอบใหเรา้เลือกรูป เลือกรูปแล้ว แต่รูปไม่เห็นขึ้นเลยค่ะ

Private Sub command2_click()
dim pth as string


pth = "D:\datacenter\mydata"


Followhyperlink pth
End Sub


น่าจะใช้ได้นะครับผมก็เอามาจากแถวๆนี้

ขอบคุณอาจารย์ yeadram ค่ะ และคุณวิษณุค่ะ หนูลองใช้โค๊ด

Private Sub command2_click()
dim pth as string


pth = "D:\datacenter\mydata"


Followhyperlink pth
End Sub

ตามที่คุณวิษณุแนะนำค่ะ แต่มันเปิดออกมาแบบ windows explorer หนูอยากให้มันเปิดมาแบบ mycomputer คือให้มีเฉพาะหน้าต่างของโฟลเดอร์เป้าหมายเท่านั้น ไม่ต้องการให้เห็นโฟลเดอร์อื่นๆที่อยู่ในไดร์ฟ D:\ ค่ะ
อยากส่งภาพให้ดูตัวอย่างที่ต้องการจัง แต่ยังทำไม่ได้ค่ะ(รูปไม่ขึ้น)

ย้อนไปอ่านความเห็นด้านบนครับ R02451
ผมแก้ไขข้อความบางส่วน ถึงวิธีการ อัพรูปประกอบกระทู้

แล้วไม่ทราบว่าลองใช้คำสั่ง shell ที่ผมให้ไปหรือยังครับ
/e เป็นการเปิดแบบ explorer
ถ้าต้องการเปิดแบบ หน้าต่างเดียวโฟลเดอร์เดียว ให้เปลี่ยนพารามิเตอร์ตรงนั้นแหละครับ จาก /e เป็น /n ครับ

อ่านเพิ่มเติมการใช้พารามิเตอร์ ของ explorer.exe ได้ที่ http://support.microsoft.com/kb/314853

อาจารย์คะ ที่ป็อบอัพ upload picture 0... image upload ไม่มีปุ่มอื่นใดเลยนอกจากปุ่ม Browse เท่านั้น และก็ไม่สามารถปรับขยายยืดหดได้เลย หนูใช้ Mozilla Firefox ไม่ทราบว่าจะเกี่ยวกันหรือเปล่า
สำหรับคำสั่ง shell นั้นลองใช้ /e แล้วค่ะเปิดได้เป็น explorer แต่ว่า่กรอบที่่เปิดมันไปหลบอยู่ด้านหลัง เราต้อง Minimize ตัว Access จึงจะมองเห็นกรอบที่เปิดขึ้นมาค่ะ ส่วนโค๊ดของคุณวิษณุนั้นมองเห็นได้เลย แต่มันเป็นแบบ explorer
สำหรับ /n นั้นหนูยังไม่ได้ทดลองว่าจะเป็นเหมือนกันหรือเปล่า เดี๋ยวทานข้าวเสร็จจะลองดูเลยค่ะ

อาจารย์ yeadram คะหนูทดลองใช้ /n ตามที่ท่านแนะนำแล้ว ใช่เลย เปิดหน้าต่างเดียวโฟลเดอร์เดียวตามที่ต้องการเลยค่ะ แต่ติดตรงที่ ยังไปแอบอยู่ข้างหลังอยู่เหมือนเดิม ทำไงจะให้มาอยู่ข้างหน้าได้คะ ติดอยู่นิดเดียวจริงๆ

ขอแก้ไขค่ะอาจารย์ ดูไปดูมามันไม่ใช่แอบอยู่ข้างหลังแต่มันเป็น Minimize ไปอยู่ที่ทาสก์บาร์ค่ะ

ฟอร์มของ access ที่ทำงานอยู่ ณ ขณะนั้น มีฟอร์มไหนเป็น modal หรือเปล่าครับ
สันนิษฐานว่า ตัว access ถูกตั้งค่าฟอร์มให้เป็น modal หรือ มีการเพิ่ม piority ในการประมวลผลโดยโค้ดอื่นๆ มั้งครับ

ในเครื่องผมมี browser 3-4 ชนิด (เพราะผมเป็นคนเขียนเว็บ ต้องมีหลายๆ ตัวไว้ทดสอบเว็บ) firefox ผมก็มีใช้ แต่ผมไม่ชอบมันอย่างยิ่ง มันชอบทำอะไรตามความคิดของมัน ตัดสินใจเอาเอง
ผมคนเขียนเว็บสั่ง browser ให้แสดงป๊อบอัพที่ความสูง 400px แต่ไฟร์ฟ็อกซ์มันจะเอาไปแสดงผลที่ 250px (มีไรป่าวววว) เป็นต้น และอีกหลายๆ อย่างที่มันมีปัญหากับสคริปต์

แต่ไม่ต้องสนใจหรอก ผมลองเช็คล่าสุด ตะกี้นี้เอง ยืนยันว่า ป๊อบอัพที่ขึ้นมากับ firefox มันขยายได้ครับ ที่มุมล่างขวาของป๊อบอัพ มันมีสัญญลักษณ์ให้ drag จัดการยืดมันออกมาเลยครับ

อาจารย์คะ ณ วันนี้ก็ยัง Up รูปไม่ได้เลยค่ะ อาจารย์ลองแสดงตัวอย่าง Pop Up ให้ดูหน่อยค่ะว่าหน้าตามันเป็นอย่างไร

ได้แล้วค่ะอาจารย์ ต้องใช้วิธีกดปุ่มลูกศรที่คีย์บอร์ด เพื่อเลื่อนดูส่วนอื่นๆของPopupตามรูปที่หนูพึ่่งอัปได้

หากสังเกตุที่ขอบขวาล่างของ Popup จะไม่มีเครื่องหมายให้ปรับขยายได้เลยค่ะ