ช่วยหน่อนะค่ะด่วนมากจริงๆ ต้องส่งงานวันนี้แล้ว ลองมาทั้งคืนเลยยังไม่ได้

<WebMethod()> _
       Public Function CteateFile(ByVal datafile As String) As String
        Dim Mydate As String = Format(Today, "MMddyyy")
        Dim MyTimeH, MyTimeM, MyTimeS, Times As Double
        Dim re As String
        MyTimeH = Format(DateTime.Now, "HH")
        MyTimeM = (Format(DateTime.Now, "mm"))
        MyTimeS = Format(DateTime.Now, "ss")
        Times = Fix(((MyTimeH * 3600) + (MyTimeM * 60) + MyTimeS) / 10)

        Dim myFile As String = "C:\CN3\" + Mydate + "-" + Times.ToString + ".txt" '// file location.
        Dim myWriter As New IO.StreamWriter(myFile)
        myWriter.WriteLine(datafile)
        myWriter.close()
        re = "0k"
        Return re
    End Function

Private Sub FinishBT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FinishBT.Click
        Dim DataText As String
        Dim dtext As String = ""
        For Each myItem As ListViewItem In CountLV.Items
            DataText = (myItem.Text & "," & myItem.SubItems(2).Text)
            WebDB.CteateFile(dtext).ToString() 
        Next
        MsgBox("finish")
    End Sub