Dim ObjHostFilePic As New FileInfo(Server.MapPath("thaijaruan.mdb")) '//สร้างอ็อปเจ็กต์FileInfo จากเส้นทางชื่อไฟล์จากฟอร์มของฐานข้อมูล
Dim NewDirectory As String = ObjHostFilePic.DirectoryName '//หาชื่อโฟลเดอร์หรือเส้นทาง
'///รูปภาพจากฟอร์ม
Dim ObjOldFilePic As New FileInfo(Request.Form("FilePic")) '//สร้างอ็อปเจ็กต์FileInfo จากเส้นทางชื่อไฟล์จากฟอร์มของรูปภาพ
Dim ExtentionPic As String = ObjOldFilePic.Extension '//หานามสกุลไฟล์
If Not (UCase(ObjOldFilePic.Extension) = UCase(".Gif") Or UCase(ObjOldFilePic.Extension) = UCase(".Jpg") Or UCase(ObjOldFilePic.Extension) = UCase(".Jif") Or UCase(ObjOldFilePic.Extension) = UCase(".jpeg")) Then
lmsg.Text = "<Center>รูปภาพไม่ใช่นามสกุล .Gif หรือ .Jpg หรือ.Jif หรือ .jpeg</Center>"
Exit Sub
End If
ExtentionPic = Mid(ExtentionPic, 2, Len(ExtentionPic) - 1) '//ตัดจุดของนามสกุลทิ้ง
Dim OldFileFic As String = ObjOldFilePic.FullName '//หาโฟลเดอร์หรือเส้นทาง,ชื่อไฟล์,นามสกุลไฟล์
'//รูปภาพใหม่
Dim NewFilePic As String = NewDirectory + "\" + Trim(txtid.Text) + ObjOldFilePic.Extension ''///ชื่อไฟล์ใหม่ประกอบด้วย โฟลเดอร์หรือเส้นทาง, ชื่อที่เป็นรหัส , นามสกุลไฟล์
'Response.Write("NewFilePic:" + NewFilePic + ":<br>")
'//ตรวจสอบไฟล์ไหม่ว่ามีอยู่ใน Host หรือไม่ ถ้ามีให้ลบทิ้ง
Dim ObjNewFilePic As New FileInfo(NewFilePic) '//สร้างอ็อปเจ็กต์FileInfo จากเส้นทางชื่อไฟล์จากฟอร์มของไฟล์รูปภาพใหม่
If ObjNewFilePic.Exists Then '//ตรวจสอบไฟล์ไหม่ว่ามีอยู่ใน Host หรือไม่
ObjNewFilePic.Delete() 'ให้ลบไฟล์ไหม่ทิ้งก่อน
End If
'//Udload รูปภาพ
ObjOldFilePic.CopyTo(NewFilePic) '
จากโค๊ด ถ้ารันใน studio สามารถแอดได้ แต่พอเอาไปรันใน iis ไม่สามารถ รันได้ ติด er ที่ ObjOldFilePic.CopyTo(NewFilePic) ครับ
Load balance : Server 04
