คำถาม VBA จะไม่ให้ User ใช้งานไฟล์ถ้าเปิดใน networkdrive

[eieisung]

เนื่องจากตอนนี้กระจายงานให้ user ผ่านทาง Network Drive มีหลาย Path
และด้วยจำนวน User มีหลายร้อยคนบางคนชอบเปิดไฟล์บน Network Drive เลย ทำให้ช้า อืด ไฟล์มีปัญหา

ดังนั้น ผมจึงอยากตรวจสอบว่าถ้าเค้าเปิดไฟล์นี้บน Network Drive อยู่ให้ปิดไฟล์อัตโนมัติครับ

คำถามคือ จะทำอย่างไร ถึงจะรู้ว่าที่ตั้งไฟล์ที่กำลังเปิดนี้ อยู่บน Network Drive ครับ

[snasui]

ลองตรวจสอบ Path ของไฟล์ที่กำลังเปิดด้วย Code ว่าได้ค่ามาอย่างไร แตกต่างจาก Path ปกติที่ต้องการให้ใช้อย่างไร ใช้ความแตกต่างนั้นในการปิดไฟล์ครับ

[menem]

Code: Select all

Sub y()
    Dim fs, d, s, t
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(Left(ActiveWorkbook.Path, 2))
    Select Case d.DriveType
        Case 0: t = "Unknown"
        Case 1: t = "Removable"
        Case 2: t = "Fixed"
        Case 3: t = "Network"
        Case 4: t = "CD-ROM"
        Case 5: t = "RAM Disk"
    End Select
    s = "Drive " & d.DriveLetter & ": - " & t
    MsgBox s
    
End Sub

อ้างอิงจาก
https://msdn.microsoft.com/en-us/librar ... 64195.aspx


หรือปรับเป็น

Code: Select all

Sub yy()
    Dim fs, d, s, t
    Set fs = CreateObject("Scripting.FileSystemObject")
    For Each d In fs.drives
    Select Case d.DriveType
        Case 0: t = "Unknown"
        Case 1: t = "Removable"
        Case 2: t = "Fixed"
        Case 3: t = "Network"
        Case 4: t = "CD-ROM"
        Case 5: t = "RAM Disk"
    End Select
    s = "Drive " & d.DriveLetter & ": - " & t
    MsgBox s
    Next
End Sub

[eieisung]

ตอบคุณ snasui
ขอบคุณครับ
แต่เนื่องจาก user แต่ละคนมีพาทย่อยเป็นของตัวเอง และจะไม่มีสิทธิใช้พาทใหญ่ร่วมกัน
ดังนั้น ที่เครื่องของแต่ละคนจะถูก Map Network Drive ด้วยพาทของตัวเองเท่านั้น
Drive ที่ Map ขึ้นมาก็มีต่างๆ เช่น T: S: V: หรืออื่นๆตามแต่ที่ Drive ในเครื่องนั้นจะอำนวย
และเมื่อใช้คำสั่งตรวจสอบพาท จะไม่ได้พาทที่เป็น Network Drive จริงๆ(\\brabra\pathใหญ่\pathย่อย)
แต่จะได้เป็น (T: S: V: หรืออื่นๆ)\pathย่อย แทน จึงทำให้ตรวจสอบไม่ได้ว่าเป็น Network Drive จริงหรือไม่ครับ

ตอบคุณ menem
ขอบคุณครับ

[snasui]

ตอบคุณ snasui
ขอบคุณครับ
แต่เนื่องจาก user แต่ละคนมีพาทย่อยเป็นของตัวเอง และจะไม่มีสิทธิใช้พาทใหญ่ร่วมกัน
ดังนั้น ที่เครื่องของแต่ละคนจะถูก Map Network Drive ด้วยพาทของตัวเองเท่านั้น
Drive ที่ Map ขึ้นมาก็มีต่างๆ เช่น T: S: V: หรืออื่นๆตามแต่ที่ Drive ในเครื่องนั้นจะอำนวย
และเมื่อใช้คำสั่งตรวจสอบพาท จะไม่ได้พาทที่เป็น Network Drive จริงๆ(\\brabra\pathใหญ่\pathย่อย)
แต่จะได้เป็น (T: S: V: หรืออื่นๆ)\pathย่อย แทน จึงทำให้ตรวจสอบไม่ได้ว่าเป็น Network Drive จริงหรือไม่ครับ

ตรวจสอบแล้วไม่ได้ผลเช่นไรก็โพสต์ Code มาถามกันต่อ ที่ผมตอบไปก็เป็นหลักการในการตรวจสอบเพื่อหาความแตกต่างเท่านั้นครับ