ไม่เจอไฟล์ pdf ให้เปิดไฟล์ jpg
กระทู้เก่าบอร์ด อ.Yeadram

 568   1
URL.หัวข้อ / URL ไม่เจอไฟล์ pdf ให้เปิดไฟล์ jpg

ผมเขียนโค๊ตสำหรับเปิดไฟล์แบบนี้ ครับ

    CreateObject("WScript.Shell").Run """" & Me.folder & "\" & Me.licensePlate & ".pdf" & """"

คราวนี้จะเขียนโค๊ตต่ออย่างไรถ้าไม่เจอไฟล์ pdf ให้เปิดไฟล์ jpg (ด้วยโปรแกรม Ms paint ) แทนครับ
โดย: กิติศักดิ์ จันทรา เมื่อ: 21 พ.ย. 2560 , 09:55

1 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R24312
if dir(Me.folder & "\" & Me.licensePlate & ".pdf") <> "" then
   CreateObject("WScript.Shell").Run """" & Me.folder & "\" & Me.licensePlate & ".pdf" & """"
else
   Shell "c:\windows\system32\mspaint.exe """ & Me.folder & "\" & Me.licensePlate & ".jpg""" , vbNormalFocus
end if

สนใจสนับสนุนเพจได้ที่ ขายหนังสือเพื่อเว็ป
โดย: สันติสุข เมื่อ: 21 พ.ย. 2560 , 18:58
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.2755s