Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,027

HOME > .NET Framework > Forum > อยากให้ vb.net อ่านไฟล์ทั้งหมดที่มีใน host โดยใช้ ftp แล้วมีโชว์ที่ vb.net ว่ามีไฟล์อะไรบ้าง



 

อยากให้ vb.net อ่านไฟล์ทั้งหมดที่มีใน host โดยใช้ ftp แล้วมีโชว์ที่ vb.net ว่ามีไฟล์อะไรบ้าง

 



Topic : 124343



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



สถานะออฟไลน์




สวัสดีครับ ขอรบกวนหน่อยคับพอดีอยากได้ code
ตัวอย่าง vb.net หน่อยครับ. อยากให้vb.net อ่านไฟล์ทั้งหมดที่มีใน host โดยใช้ ftp แล้วมาโชว์ ที่ ฟอร์ม vb.net โดยโชว์เป็น list แล้วกด ดาวน์โหลดได้. ครับ

รบกวนหน่อยคับพอดีจะเขียนโผรเจคส่งอาจารย์ครับ



Tag : .NET, MySQL, VB.NET, Windows, Linux, Web Hosting







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2016-08-23 13:11:53 By : wanlop8822 View : 828 Reply : 1
 

 

No. 1



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

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

มี Library มากมายครับ เกี่ยวกับ FTP

Code (VB.NET)
Imports System.IO
Imports AxNetwork

Module TftpGetProgram

  Sub Main()
    Dim objTftp As New TftpServer()

    Console.WriteLine(("ActiveXperts Network Component " + objTftp.Build & ", Module ") + objTftp.[Module])
    Console.WriteLine("Expiration Date: " + objTftp.LicenseStatus & vbLf)

    ' Set Logfile (optional, for debugging purposes)
    objTftp.LogFile = Path.GetTempPath() & "Tftp.log"
    Console.WriteLine("Log file used: {0}" & vbLf, objTftp.LogFile)

    Dim strHost As String = ReadInput("Enter a host name or IP address", "srv202.activexperts-labs.com", True)
    Dim strRemoteFile As String = ReadInput("Enter the filename on the remote TFTP host", "/network-component/readme.txt", True)
    Dim strFilename As String = ""

    If strRemoteFile.Contains("/") Then
        strFilename = strRemoteFile.Substring(strRemoteFile.LastIndexOf("/") + 1)
    Else
        strFilename = strRemoteFile
    End If

    Dim strLocalFile As String = ReadInput("Enter the filename on the local machine", String.Format("{0}{1}", Path.GetTempPath(), strFilename), True)

    objTftp.HostPort = 69
    ' Default port for TFTP is 69
    objTftp.[Get](strHost, strRemoteFile, strLocalFile)
    ' objTftp.Put("192.168.31.98", "test.txt", "test.txt");    save to remote server
    Console.WriteLine("Get, result: " & objTftp.LastError.ToString() & " (" & objTftp.GetErrorDescription(objTftp.LastError) & ")")
    Console.WriteLine("Ready.")
    System.Threading.Thread.Sleep(3000)
    ' Sleep for 3 second before exit
  End Sub

  Private Function ReadInput(ByVal strTitle As String, ByVal strDefaultValue As String, ByVal bAllowEmpty As Boolean) As String
    Dim strInput As [String], strReturn As [String] = ""

    If strDefaultValue = "" Then
        Console.WriteLine(strTitle)
    Else
        Console.WriteLine(String.Format("{0}, leave blank to use: {1}", strTitle, strDefaultValue))
    End If

    Do
        Console.Write("  > ")
        strInput = Console.ReadLine()
        If strInput.Length > 0 Then
            strReturn = strInput
        End If
    Loop While strReturn = "" AndAlso Not bAllowEmpty

    If strReturn = "" AndAlso strDefaultValue <> "" Then
        Return strDefaultValue
    End If
    Return strReturn
  End Function

End Module


http://www.activexperts.com/network-component/howto/tftp/vbnet/
https://tftp4net.codeplex.com/







แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-08-24 14:19:39 By : mr.win
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : อยากให้ vb.net อ่านไฟล์ทั้งหมดที่มีใน host โดยใช้ ftp แล้วมีโชว์ที่ vb.net ว่ามีไฟล์อะไรบ้าง
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

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

Notice

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

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 04
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2024 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่