版权声明:未经允许禁止转载,否则会计入黑名单:http://www.cnblogs.com/123it/p/copyright.html
注意:已授权bilibili用户wy14abcd转载!
(已修改为VS(而不仅仅是VS2015))
最近要从一个http上下载个文件,差点就直接telnet了,突然发现了这个:
My.Computer.Network.DownloadFile("目标文件网址")
但是还得读取它,用什么呢?
直接用
Imports System.IO '引入System.IO命名空间
Dim test As New StreamReader("读取文件的路径")
但是在类里,不能用Application.StartupPath代表程序所在目录呀,这怎么办呢?遂baidu了一下,发现可以这样:
My.Application.Info.DirectoryPath '=Application.StartupPath
然后,就可以读取了。
完整代码:(目标文件地址http://123it.cf/test/download.txt)
Imports System.IO '引入System.IO命名空间 Public Class test Private Sub frm_test_Load(sender As Object, e As EventArgs) Handles MyBase.Load
My.Computer.Network.DownloadFile("http://123it.cf/test/download.txt", My.Application.Info.DirectoryPath & "\" & "down.txt") '下载文件
Dim rreeaadd As New StreamReader(My.Application.Info.DirectoryPath & "\" & "down.txt")
MsgBox(rreeaadd.ReadtoEnd,,"提示") '读取文件内容并弹出Msgbox消息框
rreeaadd.Close() '关闭流
End Sub End Class