Snasui Excel Forum

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

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

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

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

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

[code]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[/code]


อ้างอิงจาก
https://msdn.microsoft.com/en-us/library/office/gg264195.aspx


หรือปรับเป็น
[code]
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[/code]

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

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

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

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