传送文件问题

本地有一文本文件,要上传到服务器指定的目录中,有什么好方法吗

解决方案 »

  1.   

    在服务器端安装一个ftp服务器,用inet控件上传
      

  2.   

    '假设FTP服务器地址为FTP://ftp.microsoft.com
    Inet1.Execute "FTP://ftp.microsoft.com", _
       "SEND C:\MyDocuments\Send.txt SentDocs\Sent.txt"
      

  3.   

    Inet1为
    Microsoft Internet Transfer 控件
      

  4.   

    狂晕！
    局域网？
    FileCopy "c:\test.txt", "\\服务器IP地址\共享名\文件名"
      

  5.   

    使用Inet控件系统提示:license information for this component not found ,怎么去注册呀
      

  6.   

    filecopy已经实现了局域网的复制,多谢viena
      

  7.   

    terryterry1(sdfasdfdasfasdf) 脸皮厚不厚啊？想个臭膏药，每个贴子都贴。
      

  8.   

    用filecopy怎么判断文件夹设置的用户名和密码
      

  9.   

    shell "net use \\服务器IP地址\共享名 密码 /user:用户名"
    以后，就可以直接用filecopy了如果不知道密码，那就没办法了，
    但不知道密码也能进入别的机器的话，那太恐怖了
      

  10.   

    Dim isbusy As Boolean
        Inet1.URL = "ftp://192.168.0.1/dir/"
        Inet1.Protocol = icFTP
        Inet1.UserName = "sf"
        Inet1.password = "sf"
        '执行文件传输:
        Inet1.Execute , "put c:\2030402045_2004_10.txt"
        Do While isbusy
           isbusy = Inet1.StillExecuting
           DoEvents
        Loop
        Inet1.Execute , "QUIT"我已经配置好了ftp,为什么文件上传不过去
      

  11.   

    Do While isbusy
           isbusy = Inet1.StillExecuting
           DoEvents
        Loopisbusy没有初始化，默认是False，循环没有执行
    应该在循环代码前面加一句
    isbusy = Inet1.StillExecuting
      

  12.   

    我加了isbusy = Inet1.StillExecuting
    怎么跟踪isbusy返回为false???
      

  13.   

    isbusy用来测试inet1 的执行状态,如果进程中仍在进行文件 传输的工作,则调用过程DoEvents给系统空闲时间来做文件传输工作, 这样便成功地执行了文件上载的功能。isbusy = Inet1.StillExecutingDo While isbusy
    　　　 isbusy = Inet1.StillExecuting 
    　　　 DoEvents 
    Loop isbusy=true 表示忙状态
      

  14.   

    Dim isbusy As Boolean
        Inet1.URL = "ftp://192.168.0.1/dir/"
        Inet1.Protocol = icFTP
        Inet1.UserName = "sf"
        Inet1.password = "sf"
        '执行文件传输:
        Inet1.Execute , "put c:\2030402045_2004_10.txt"
        Do While isbusy
           isbusy = Inet1.StillExecuting
           DoEvents
        Loop
        Inet1.Execute , "QUIT"我已经配置好了ftp,为什么文件上传不过去
      

  15.   

    我的话妳不懂吗？
    Dim isbusy As Boolean
        Inet1.URL = "ftp://192.168.0.1/dir/"
        Inet1.Protocol = icFTP
        Inet1.UserName = "sf"
        Inet1.password = "sf"
        '执行文件传输:
        Inet1.Execute , "put c:\2030402045_2004_10.txt"
        isbusy = Inet1.StillExecuting'不加这一句的话，循环根本就进不去
        Do While isbusy
           isbusy = Inet1.StillExecuting
           DoEvents
        Loop
        Inet1.Execute , "QUIT"
      

  16.   

    Do While isbusy
           isbusy = Inet1.StillExecuting
           DoEvents
        Loop
    isbusy为True时，才执行循环里面的代码，
    isbusy定义以后，没有初始化，默认是False,
    执行到Do While isbusy时，循环条件不满足，直接跳到下一句执行了
    Inet1.Execute , "QUIT"
    直接退出了，没来得及传文件或者isbusy初始化一下，赋值为True也是可以的
      

  17.   

    楼上的,我加了那一句了,但是返回值是false,根本就不进到循环里面去:)
      

  18.   

    isbusy初始化一下，赋值为True,文件还是传不上去,倒底怎么回事啊~~~~~~