ข้อสอบเทียบเลเวล

bonparadorn

สร้างขึ้นมาเพื่อกลุ่มคนที่มีพื้นฐานมาแล้ว จะได้เข้าถึงเนื้อหาที่เหมาะสม

คะแนนที่ 1

คะแนนที่ 2

ตอนนี้มีแค่ 2 คะแนนก่อน เว็บอัพเดทเนื้อหาไม่ทันครับ

PT@RmutSV

ขอโทษครับ ส่งผิดที่ ช่วยย้ายทีน้ะครับ
เพิ่มเติมแนวคิดครับ

'ถอดเอามาแต่ชื่อไฟล์
    Public Function NameWithoutPath(ByVal WithPath As String)
        Dim sWithoutPath As String
        Dim iLen As Integer
        Dim iWhere As Integer
        sWithoutPath = WithPath
        Do Until InStr(sWithoutPath, "\") = 0
            iLen = Len(sWithoutPath)
            iWhere = InStr(sWithoutPath, "\")
            sWithoutPath = Microsoft.VisualBasic.Right(sWithoutPath, iLen - iWhere)
        Loop
        Return sWithoutPath
        'ข้อบกพร่องคือ จะเหลือไฟล์เหมือนที่อยู่ล่างสุด ไม่ได้ตรวจสอบลำดับที่จะลบไฟล์ที่เหมือน
    End Function

nauvarat

Private Function Func_get_name_in_path(ByVal full_path As String) As String
        Dim name_p As New System.IO.FileInfo(full_path)
        Return name_p.Name
End Function

System.IO.FileInfo
ใช้อ่านค่าของไฟล์ได้ทุกอย่าง

PT@RmutSV

3# nauvarat


oh!yes ขอบคุณครับ