Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,038

HOME > .NET Framework > Forum > สอบถามเรื่องการเช็คไฟล์เอกสารตามชื่อไฟล์ VB.NET

[.NET] สอบถามเรื่องการเช็คไฟล์เอกสารตามชื่อไฟล์ VB.NET

เริ่มหัวข้อใหม่

Balll2iFFer

โพสกระทู้ ( 374 )
บทความ ( 0 )

เช่น

รหัส ชื่อ ไฟล์เอกสาร
001 เอกสารวิจัย1 มีไฟล์เอกสาร
002 เอกสารวิจัย2 ไม่มีไฟล์เอกสาร

ทำนองนี้ครับ

Code (VB.NET)

Dim lblgrid As Label = CType(e.Row.FindControl("lblgrid"), Label)
If NOT ISNoting(lblgrid)Then
    lblgrid.Text = e.Row.DataItem("gr_id")
 
Dim lblfile As Label = CType(e.Row.FindControl("lblfile"), Label)
'แสดงชื่อไฟล์ทั้งหมดใน Folder File_Project
Dim myDirInfo As DirectoryInfo
Dim arrFileInfo As Array
Dim myFileInfo As FileInfo
myDirInfo = New DirectoryInfo("D:/File_Project")
arrFileInfo = myDirInfo.GetFiles("*.*")
For Each myFileInfo In arrFileInfo
    Me.lbllistfile.Text = Me.lbllistfile.Text & myFileInfo.Name.Substring(0, 8)
 
    If lblgrid.Text = Me.lbllistfile.Text Then
        lblfile.Text = "มีเอกสาร"
        lblfile.ForeColor = Drawing.Color.Green
    Else
        lblfile.Text = "ไม่มีเอกสาร"
        lblfile.ForeColor = Drawing.Color.Red
    End If
 
Next myFileInfo
myDirInfo = Nothing
 
End If

ตอนนี้พบปัญหาคือ มันขึ้นว่าไม่มีไฟล์เอกสารตลอดเลย ทั้งๆที่มีไฟล์

ขอบคุณครับ

Tag : .NET, Ms SQL Server 2005, VS 2005 (.NET 2.x)

ประวัติการแก้ไข
2016-09-19 15:27:13

Date : 2016-09-19 15:24:29

By : Balll2iFFer

View : 1212

Reply : 2

No. 1

TC Admin

โพสกระทู้ ( 74,059 )
บทความ ( 838 )

ปัญหาคือมัน Loop นะครับ

Code (VB.NET)

    Dim lblgrid As Label = CType(e.Row.FindControl("lblgrid"), Label)
    If NOT ISNoting(lblgrid)Then
        lblgrid.Text = e.Row.DataItem("gr_id")
 
    Dim lblfile As Label = CType(e.Row.FindControl("lblfile"), Label)
    'แสดงชื่อไฟล์ทั้งหมดใน Folder File_Project
    Dim myDirInfo As DirectoryInfo
    Dim arrFileInfo As Array
    Dim myFileInfo As FileInfo
    myDirInfo = New DirectoryInfo("D:/File_Project")
    arrFileInfo = myDirInfo.GetFiles("*.*")
Dim bFlag AS Boolean = False
    For Each myFileInfo In arrFileInfo
        Me.lbllistfile.Text = Me.lbllistfile.Text & myFileInfo.Name.Substring(0, 8)
 
        If lblgrid.Text = Me.lbllistfile.Text Then
    Boolean = True
        End If
 
    Next myFileInfo
    myDirInfo = Nothing
 
    End If
 
IF Boolean = True Then
            lblfile.Text = "มีเอกสาร"
            lblfile.ForeColor = Drawing.Color.Green
        Else
            lblfile.Text = "ไม่มีเอกสาร"
            lblfile.ForeColor = Drawing.Color.Red
End IF

Date : 2016-09-20 11:06:45

By : mr.win

No. 2

Balll2iFFer

โพสกระทู้ ( 374 )
บทความ ( 0 )

ตอบความคิดเห็นที่ : 1 เขียนโดย : mr.win เมื่อวันที่ 2016-09-20 11:06:45

รายละเอียดของการตอบ ::

ขอบคุณครับ

Date : 2016-09-20 13:10:33

By : Balll2iFFer

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : สอบถามเรื่องการเช็คไฟล์เอกสารตามชื่อไฟล์ VB.NET

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

Load balance : Server 01