vb实现FTP压缩上传与解压缩下载
我想通过VB实现档案的上传与下载，但因所要上传的均是小文件，多档案200M的档案，1700个小文件，254个资料夹，再加上FTP服务器也是虚拟主机，所以上传非常慢，故想上传前先在本机压缩，然后再传服务器，完成后，服务器再解压缩，解压完，删除原来的压缩档，下载时，客户端先申请需要下载哪些档案，再由服务器先压缩，然后下载到客户端，要求全程动作必须以VB代码实现，不管是压缩与解压缩，还是FTP上次与下载，且要求压缩与解压缩，FTP上次与下载必须能进度条小时进度，请提供相关代码
思路是：压缩通过调用rar.exe，上传下载通过调用ftp.exe
vb发送FTP
.UserName = "user".Password = "123".Protocol = icFTP .RequestTimeout = 120 End With ,在FTP根目录下创建文件夹abc Call Inet1.Execute(, "mkdir abc"),在FTP根目录下载123.txt到D盘 Call Inet1.Execute(, "get 123.txt d:\\123.txt")'把d:\\123.txt上传到FTP根目录 Call Inet1.Ex...
ftp上传文件用vb.net怎么实现
在VB.NET中实现FTP上传文件的功能，可以使用My.Computer.Network.UploadFile方法。首先，需要确定本地文件的路径，例如"C:\\localfile.txt"。接着，确定FTP服务器的路径和文件名，例如"ftp:\/\/ftpserver.com\/ftpfile.txt"。此外，还需要提供FTP服务器的用户名和密码。完整的代码示例如下：Dim localPath A...
VB6.0 FTP下载上传问题【可加分!】
首先介绍ftp下载，代码如下： Const Str_FtpServer As String = " ftp:\/\/ftp.lob.cn" Private Str_Username As String = "lob" Private Str_Password As String = "xxxxxxxx" Private Sub DownloadFile(ByVal Str_Path As String) Try Dim Str_Filename As String = Str_Path Dim ftpReq As ...
VB中如何实现上传文件的功能?
用script脚本 直接调用 FTP 命令实现上传文件到FTP服务器。代码如下：'定义API函数Const SYNCHRONIZE = &H100000Const INFINITE = &HFFFFFFFFPrivate Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As LongPriv...
VB做ftp上传工具
1.FTP传输工具 我们首先使用FTP传输工具,用VB5.0中SHELL命令调用DOS批处理文件来实现传输的需要。Shell调用格式:Shell(pathname[,windowstyle])例子:Shell("c:\\windows\\upload.bat")批处理文件upload.bat的内容:c:\\windows\\ftphostname username password sendc:\\zrh\\upload.txtupload.txt bye 该命令...
VB6.0下下载FTP上指定文件的文件的模块,或类,或dll
FTP操作模块 '文件下载示例： Private Sub Form_Load() Dim FTP As FTP Set FTP = New FTP Call FTP.Connect("127.0.0.1", 21, "username", "password") Call FTP.GetFile("\/wwwroot\/index.asp", "c:\\abcd.asp") Set FTP = Nothing End Sub ...
如何用VB写个程序,把指定文件上传到FTP空间?
Inet1.RemoteHost = ServerName'服务器地址 Inet1.RemotePort = 21'FTP端口 Inet1.UserName = uName'用户名 Inet1.Password = uPWS'密码 下载文件：Inet1.Execute "", "GET 1.txt d:\\1.txt"ri = Inet1.StillExecuting Do While ri ri = Inet1.StillExecuting DoEvents Loop 上传文件：Inet1...
ftp上传文件用vb.net怎么实现
My.Computer.Network.UploadFile(本地文件路径, ftp服务器路径包括文件名,用户名,密码)
VB6.0 FTP下载上传问题【可加分!】
Inet1.Execute "ftp:\/\/123:123@www.123.com", "put d:\\123.exe 123.exe" '上传d:\\123.exe到服务器 End Sub Private Sub Inet1_StateChanged(ByVal State As Integer)If State = 12 Then Inet1.Execute , "close" '如果下载或上传完毕则关闭FTP连接 End Sub 其中要用到的URL格式...
用vb登录ftp上传文件的问题
你好，你的代码是可以正常上传，包括上传到ftp指定目录的，我已经亲自测试过了。估计是ftp端权限设置问题，请观察下ftp服务端反馈的相应信息或善用Inet1.ResponseInfo方法。补充一下：楼主你的代码最后有个 Kill App.Path + "\\ip.txt"即是上传一次之后就删除原始文件，后边当然怎么传也传不上去。另外，...
