VB中Inet控件编写FTP程序问题.txt

Question

各位大哥：
    小弟使用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/下文件名确定，主要形式是mx2130123012这种类型，
请教各位大哥，可否给我指点，如何写这个控件程序，能可以顺利下载不同名的文件程序，包括下载路径变化的话如
处理，另外这样下载是否就是以binary形式下载文件，如果不是如何处理？
    再次感谢各位大哥，假如可以给我点意见，小弟感激不尽，谢谢啦！！

Answer 1

你在MSDOS下输入:
ftp
在出现的FTP>命令提示符下输入
help
然后，把这些FTP命令研究一下，就都会明白了，呵
也可以研究一下一些FTP程序（如FlashFXP）的提示信息，分析一下，你就知道你的这个程序该怎么写了呵

Answer 2

我不大理解你的意思,希望是这个意思呵呵
Private Sub FTPlink_Click(byval sRemotePath as string,byval sFileName as string )
    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 " sRemotePath & sFileName &"D:\sys111.txt"
    
    right1 = Inet1.StillExecuting
    Do While right1
       right1 = Inet1.StillExecuting
       DoEvents
    Loop
    
End Subbinary这个我也很困扰,发现有时候是binary有时候是ascii的,可能是上传的文件本身的问题.如果同楼上的说的确用ftp命令中有这个选择下栽格式的命令.我都是通过一个工具把下栽的文件再转换的.你要写的话我只能告诉你思路把所有的回车符号换成回车换行符号

Answer 3

编写一个完善的FTP程序
http://www.21code.com/codebase/?pos=down&id=2095很象CUTEFTP，实际上CUTFTP大部分功能它都有了，是个比较成熟的FTP客户端 
http://www.21code.com/codebase/?pos=down&id=1366

Answer 4

creazyfish(梳分头的鱼)，你的方法我试了一下，可是不行，不知道你那可以下载不？？

Answer 5

UNIX机器上/usr/guog/file目录下会产生一些文件，名为"mx1112222"或者"cz333444"，我现在想在VB用用Inet控件编写个程序，'Inet1.Execute "ftp://guog:[email protected]", "get /usr/guog/file/mx1112222 D:\sys111.txt"，这样可以完成下载，但是我这文件名不定，请您帮助看看有什么好方法没，谢谢了！

Answer 6

其实 dartftp(power tcp) 不错,哪位提供完美注册版

Answer 7

就是，我暂时使用的就是这个FTP控件，那位可以提供完美注册版下载，感谢啦！！哪位能提供下载我给分！！

Answer 8

http://soft.ttdown.com/ViewDownURL.asp?softID=11753
有你想要的，注册的东西在keygen下面