各位大哥:
小弟使用VB中Inet控件编写文件下载程序,完成从UNIX到windows机器文件下载,主要程序如下:
Private Sub FTPlink_Click()
Dim tmpstring As String
Dim filenum As Integer filenum = FreeFile
Open "D:\sys111.txt" For Output As #filenum
Close #filenum
tmpstring = "D:\sys111.txt"
Kill tmpstring
Inet1.Execute "ftp://guog:[email protected]", "get /usr/guog/file/aaa.txt D:\sys111.txt"
right1 = Inet1.StillExecuting
Do While right1
right1 = Inet1.StillExecuting
DoEvents
Loop
End Sub 这样可以完成文件下载,不过小弟在UNIX下/usr/guog/file/下文件名不确定,主要形式是mx111222或者cz333444这种类型,请教各位大哥,如何写这个控件程序,能可以顺利下载,包括下载路径变化的话如处理,另外这样下载是否就是以binary形式下载文件,如果不是如何处理? 再次感谢各位大哥,假如可以给我点意见,小弟感激不尽,谢谢啦!!此外那位可以提供PowerTCP
FTP TOOL1.80版本的完美注册版下载,同样给分30!!
小弟使用VB中Inet控件编写文件下载程序,完成从UNIX到windows机器文件下载,主要程序如下:
Private Sub FTPlink_Click()
Dim tmpstring As String
Dim filenum As Integer filenum = FreeFile
Open "D:\sys111.txt" For Output As #filenum
Close #filenum
tmpstring = "D:\sys111.txt"
Kill tmpstring
Inet1.Execute "ftp://guog:[email protected]", "get /usr/guog/file/aaa.txt D:\sys111.txt"
right1 = Inet1.StillExecuting
Do While right1
right1 = Inet1.StillExecuting
DoEvents
Loop
End Sub 这样可以完成文件下载,不过小弟在UNIX下/usr/guog/file/下文件名不确定,主要形式是mx111222或者cz333444这种类型,请教各位大哥,如何写这个控件程序,能可以顺利下载,包括下载路径变化的话如处理,另外这样下载是否就是以binary形式下载文件,如果不是如何处理? 再次感谢各位大哥,假如可以给我点意见,小弟感激不尽,谢谢啦!!此外那位可以提供PowerTCP
FTP TOOL1.80版本的完美注册版下载,同样给分30!!
解决方案 »
- 在VB操作界面以表的形式写多条数据然后插入到数据库中???
- 请问如何关闭Command按钮控件的3D效果
- 怎么使程序打开,运行轻轻松松的
- 各位高手,救急!!! 在 Vb中如何获取网络中所有Sql Server服务器的名字? 在线,急急急急急急急!!!!!!!
- 在vb用winsock实现局域网通信的问题,谢谢!
- 关于过程的定义
- 悬赏!!!!!!!!!!!
- 如何错误返回
- (立刻给分)我这里有xpcmdbutton的源代码,但是我把它做成ocx时,不能load,高分球就解决办法
- 怎么获得打印对话框的参数?
- newex.ocx我在网上当的一个资源管理器控件,各位有用过的吗?我想要文件响应我鼠标的右键怎么做啊?大家帮帮忙啊!!!谢谢啊
- updown控件的onChange事件中如何判断是UpClick还是DownClick?
有你想要的,注册的东西在keygen下面