189 8069 5689
这个是你的问题，不是vb.net速度慢。
芜湖网站制作公司哪家好，找成都创新互联！从网页设计、网站建设、微信开发、APP开发、成都响应式网站建设公司等网站项目制作，到程序开发，运营维护。成都创新互联于2013年创立到现在10年的时间，我们拥有了丰富的建站经验和运维经验，来保证我们的工作的顺利进行。专注于网站建设就选成都创新互联。
你应该这样写：
Dim file1 As FileStream = New FileStream("地址", FileMode.Open)
Dim myread As BinaryReader = New BinaryReader(file1)
Dim fn(file1.Length) As Byte
For i As Integer = 0 To file1.Length - 1
fn(i) = myread.ReadByte
Next
记得前面要 imports system.io
这个代码把文件读入一个fn的数组中，速度极快。
简单的说Timer是一个时间的控件， 不能说Timer的值等於2秒时，因为Timer相当於时间，只能说当Timer跳动两秒时触发某事件。 代码如下： ' 首先要确定启动控件 Me.Timer1.Enabled = True’启动控件 Me.Timer1.Interval = 1000‘设定跳动频为1秒。
timer要用timer.start（）开始记时，timer.Interval = 2000简单来说：在timer事件下一个textbox.selectAll()两秒全选一次textbox内容，运行不完不会有什么影响，线程等内容现在不必考虑
哦老天！这位仁兄能不能吧中间的那个长长的字符串搞得简明一点啊！
还有您的文件号 #2 也不好，容易冲突。建议改成变量 nFF（整型）,nFF = IIF((FreeFile=0), FreeFile(1), FreeFile)，这样就不会冲突了。
对于延迟，可以使用 Sleep 函数。
修正后的代码如下：
Private Declare Function Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) As Long
Shell "cmd /c echo open " Text5.Text "" aa "/xjdown.txt" "echo " Text6.Text "" aa "/xjdown.txt" "echo " Text7.Text "" aa "/xjdown.txt" "echo bin" aa "/xjdown.txt" "echo get " aa "\" aa "xjlt.txt" "" aa "/xjdown.txt" "echo bye" aa "/xjdown.txt" "ftp -s:" aa "/xjdown.txt" "del " aa "\xjdown.txt" "© " aa "xjlt.txt " aa "\" aa "xjlt.txt" "del " aa "xjlt1.txt", vbHide '修正后的下载文本代码
Dim nFF As Integer
nFF = IIF((FreeFile=0), FreeFile(1), FreeFile)
Open aa "\" aa "xjlt.txt" For Binary As #nFF
Text1.Text = Input(LOF(2), #nFF)
Close #nFF
Sleep 2000 '睡两秒，注意 Sleep 以毫秒为单位
MkDir Text14.Text
这样就行了。
:RECENTLY ADDED:
上面的仁兄注意了！Sleep 函数本来就是让窗体暂停处理消息的，所以不响应是在所难免的。可以在调用 Sleep 函数的前一行使用 DoEvents 函数，不过只能处理完消息再进行（如，按钮显示为弹起，停止响应两秒，再继续执行）。