[VB.NET] การกำหนดตำแหน่งพาธให้กับโปรเจค

thongkorn

ว่ากันง่ายๆ แอดมินเขียนโค้ดชุดนี้ขึ้นมาเพื่อทดแทน App.Path ใน VB6 ครับพี่น้อง
ต้องขึ้นอยู่กับว่าเราตั้งค่าการ Build output path เอาไว้ที่ไหน
โดย Windows 64 บิท จะอยู่ที่
"\bin\debug"
"\bin\release"

หรือ Windows 32 บิท
"\bin\x86\debug"
"\bin\x86\release"

สมมุติอ่านค่า Application.StartupPath ได้เป็น
C:\Project VB.Net\ConnectAccessNET\bin\debug

เราจะถอยหลังโดยการตัด \bin\debug ทิ้งออกไป โดยการเปรียบเทียบค่าเพื่อให้เป็น
C:\Project VB.Net\ConnectAccessNET

1.     ' / --------------------------------------------------------------------------------
   
2.     ' / Get my project path
   
3.     ' / AppPath = C:\My Project\bin\debug
   
4.     ' / Replace "\bin\debug" with ""
   
5.     ' / Return : C:\My Project\
   
6.     Function MyPath(AppPath As String) As String
   
7.         '/ MessageBox.Show(AppPath);
   
8.         AppPath = AppPath.ToLower()
   
9.         '/ Return Value
   
10.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
    
11.         '// If not found folder then put the \ (BackSlash ASCII Code = 92) at the end.
    
12.         If Right(MyPath, 1) <> Chr(92) Then MyPath = MyPath & Chr(92)
    
13.     End Function

คัดลอกไปที่คลิปบอร์ด

เป็นฟังค์ชั่นที่รับค่า StartupPath และรีเทิร์นคืนค่ากลับแบบ String ตามที่เรากำหนด ...

(ข้อผิดพลาดในการแสดงผล เพราะมันไม่โชว์เครื่องหมาย \) แก้ไขบรรทัดก่อน End Function ...
If Right(MyPath, 1) <> "\" Then MyPath = MyPath & "\"

ยกตัวอย่างการนำไปใช้งาน

1.         Dim strPathData As String = MyPath(Application.StartupPath) & "Data"
   
2.         Dim strPathImages As String = MyPath(Application.StartupPath) & "Images"

คัดลอกไปที่คลิปบอร์ด

strPathData = "C:\Project VB.Net\ConnectAccessNET\data"

MMEE007

ขอบพระคุณคับ อาจารย์

khantharod

ขอบพระคุณคับ