ตรวจสอบนามสกุลไฟล์



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

15 มี.ค. 64 , 21:55:18
อ่าน 207 ครั้ง

kitisak

ตรวจสอบนามสกุลไฟล์
« เมื่อ: 15 มี.ค. 64 , 21:55:18 »
เราจะตรวจสอบนามสกุลไฟล์
จากชื่อไฟล์ที่กำหนดใน text box ได้อย่างไรครับ

 

16 มี.ค. 64 , 12:53:25
ตอบกลับ #1

PNR

: ตรวจสอบนามสกุลไฟล์
« ตอบกลับ #1 เมื่อ: 16 มี.ค. 64 , 12:53:25 »
เราจะตรวจสอบนามสกุลไฟล์
จากชื่อไฟล์ที่กำหนดใน text box ได้อย่างไรครับ

สร้างตัวแปรขึ้นมาแล้วใช้การกำหนดแบบนี้
สมมุติ textbox ชื่อ textboxName ไว้ระบุชื่อไฟล์

Dim getExtensionName As String
getExtensionName = Right$(textboxName, Len(textboxName) - InStrRev(textboxName, "."))
MsgBox getExtensionName

ในส่วนของ getExtensionName ก็จะได้นามสกุลไฟล์สามารถนำไปตรวจสอบขั้นต่อไปได้แล้วครับ
« แก้ไขครั้งสุดท้าย: 16 มี.ค. 64 , 14:00:32 โดย PNR »
เรียนเพื่อนสมาชิกและอาจารย์ทุกท่าน
ผมไม่ใช่อาจารย์และไม่ใช่ผู้ที่แตกฉานใน Access นะครับ
แค่ผู้หนึ่งที่แชร์ความรู้เท่าที่มี ถ้าหากอาจารย์ทุกท่านเห็นว่ายังไม่ถูกต้อง
กรุณาโพสตอบกระทู้ส่วนเนื้อหาที่น่าจะถูกต้องกว่าให้ด้วยเพื่อเป็นวิทยาทาน
 
โพสต์นี้ได้รับคำขอบคุณจาก: kitisak

17 มี.ค. 64 , 14:45:06
ตอบกลับ #2

kitisak

: ตรวจสอบนามสกุลไฟล์
« ตอบกลับ #2 เมื่อ: 17 มี.ค. 64 , 14:45:06 »
ใน textbox มีแต่ชื่อไฟล์ ไม่มีนามสกุลไฟล์ เราจะตรวจสอบได้อย่างไรครับ

 

17 มี.ค. 64 , 14:54:11
ตอบกลับ #3

PNR

: ตรวจสอบนามสกุลไฟล์
« ตอบกลับ #3 เมื่อ: 17 มี.ค. 64 , 14:54:11 »
ใน textbox มีแต่ชื่อไฟล์ ไม่มีนามสกุลไฟล์ เราจะตรวจสอบได้อย่างไรครับ

ใน textbox มี path และ ชื่อไฟล์ หรือเปล่าครับ
เพราะถ้าจะระบุชื่อไฟล์แล้วต้องค้นหาไฟล์นั้นมาเพื่อจะดูนามสกุลไฟล์
ที่ต้องระบุตำแหน่งไฟล์เพราะ ไฟล์ในเครื่องทั้งหมดต้องมีชื่อซ้ำกันอยู่แล้วครับ
เรียนเพื่อนสมาชิกและอาจารย์ทุกท่าน
ผมไม่ใช่อาจารย์และไม่ใช่ผู้ที่แตกฉานใน Access นะครับ
แค่ผู้หนึ่งที่แชร์ความรู้เท่าที่มี ถ้าหากอาจารย์ทุกท่านเห็นว่ายังไม่ถูกต้อง
กรุณาโพสตอบกระทู้ส่วนเนื้อหาที่น่าจะถูกต้องกว่าให้ด้วยเพื่อเป็นวิทยาทาน
 
โพสต์นี้ได้รับคำขอบคุณจาก: kitisak

17 มี.ค. 64 , 18:58:17
ตอบกลับ #4

kitisak

: ตรวจสอบนามสกุลไฟล์
« ตอบกลับ #4 เมื่อ: 17 มี.ค. 64 , 18:58:17 »
มี พาธ ไฟล์ด้วยครับ โดยเก็บไว้อีก text box

 

18 มี.ค. 64 , 08:24:22
ตอบกลับ #5

PNR

: ตรวจสอบนามสกุลไฟล์
« ตอบกลับ #5 เมื่อ: 18 มี.ค. 64 , 08:24:22 »
โค๊ด: [Select]
Private Sub Command6_Click()
Dim extensionName As String
extensionName = Dir(Me.txtPath & (Me.txtFileName & "*"))
extensionName = Right$(extensionName, Len(extensionName) - InStrRev(extensionName, "."))
Me.txtExtensionName = extensionName
End Sub

ลองดูตัวอย่างเอานะครับ
เรียนเพื่อนสมาชิกและอาจารย์ทุกท่าน
ผมไม่ใช่อาจารย์และไม่ใช่ผู้ที่แตกฉานใน Access นะครับ
แค่ผู้หนึ่งที่แชร์ความรู้เท่าที่มี ถ้าหากอาจารย์ทุกท่านเห็นว่ายังไม่ถูกต้อง
กรุณาโพสตอบกระทู้ส่วนเนื้อหาที่น่าจะถูกต้องกว่าให้ด้วยเพื่อเป็นวิทยาทาน
 
โพสต์นี้ได้รับคำขอบคุณจาก: kitisak


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