Option Explicit
Private Sub Form_Load()
jgsjTime.Interval = 0
trType = FTP_TRANSFER_TYPE_BINARY
'打开网络
OpenResult = InternetOpen("VB WININET", INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
If OpenResult = 0 Then Label8.Caption = "网络状态：打开网络失败！": Exit Sub
'连接服务器
ConnectResult = InternetConnect(OpenResult, "192.168.1.144", 21, "root", "12345", INTERNET_SERVICE_FTP, 0, 0)
If ConnectResult = 0 Then Label8.Caption = "网络状态：连接服务器失败！": Exit Sub
CdPath = FtpSetCurrentDirectory(ConnectResult, "\")
If CdPath = False Then
Label8.Caption = "进入目录失败！"
Exit Sub
Else
Label8.Caption = "进入目录成功！"
End If
End Sub
Function Index(strFolder)
Dim filesys As Object
Dim folder As Object
Dim file As Object
Dim f, sfd
Set filesys = CreateObject("Scripting.FileSystemObject")
Set folder = filesys.GetFolder(strFolder)
For Each f In folder.Files
If f.Type = "JPEG 图像" Then
Set file = filesys.GetFile(f)
UploadPic strFolder & file.Name, file.Name
End If
Next
'关闭连接
InternetCloseHandle ConnectResult
InternetCloseHandle OpenResult
For Each sfd In folder.SubFolders
Index sfd
Next
Set file = Nothing
Set folder = Nothing
Set filesys = Nothing
End Function
Function UploadPic(SFile As String, DFile As String)
'上传文件
PutResult =FtpPutFile （ConnectResult, SFile, DFile, FTP_TRANSFER_TYPE_BINARY, 0）
If PutResult Then
Label8.Caption = "文件上传成功！"
Else
Label8.Caption = SFile & "文件上传失败！"
MsgBox Err.LastDllError
End If
End Function
-
等级
本版专家分：19结帖率 100% -
我用FTPPUTFILE上传，总是返回FALSE，但实际上文件已经传过去了。我上写入权限，而且下载是正常的。代码如下：
展开阅读全文
-
等级
本版专家分：17551勋章
-
- 银牌 2006年7月 总版技术专家分月排行榜第二
-
-
红花
2006年7月 Windows专区大版内专家分月排行榜第一
2006年7月 VB大版内专家分月排行榜第一
-
- 黄花 2009年6月 VB大版内专家分月排行榜第二
-
-
既然文件已经传过去了
自然可能是FtpPutFile返回错误的问题了
但是FtpPutFile返回的错误不是这样取得的
你应该用GetLastError去获取究竟是什么原因造成了FtpPutFile返回的错误
GetLastError()会返回如下错误号
ERROR_INTERNET_HTTP_TO_HTTPS_ON_REDIR
ERROR_INTERNET_INCORRECT_PASSWORD
ERROR_INTERNET_INVALID_CA
ERROR_INTERNET_POST_IS_NON_SECURE
ERROR_INTERNET_SEC_CERT_CN_INVALID
ERROR_INTERNET_SEC_CERT_DATE_INVALID
你可以从返回的错误来分析究竟是那个环节的问题
- 使用PutFile函数上传本机ip文件到FTP服务器
包含的头文件 #include "winsock.h" #include "stdio.h" <br />消息响应函数代码： <br /> WORD wVersionRequested; WSADATA wsaData; char name[255]; //name里是本机名...
- c++ ftp putfile 返回12003 Extended error
12003 ERROR_INTERNET_EXTENDED_ERROR An extended error was returned from the server.This is typically a string or buffer containing a verbose error message. 这个问题，在网上查了...
- ftpClient文件上传成功但总是返回false
文件上传成功但总是返回false flag = ftpClient.storeFile(newFileName, is); if (flag) return newFileName; 解决办法： 在代码前面加上ftp.enterLocalPassiveMode();重新编译后即可 如下： ftp.ent...
- vb.net 调用wininet.dll的FTP上传文件方法失败
vb转vb.net的时候，调用wininet.dll的时候老是提示123的错误，后来改了下函数的声明：如下 Public Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal HINet As Integer) As Integer Public ...
- 用WinInet实现Ftp传输
用WinInet实现Ftp传输(纯粹自己看自己用)
- 用WinINet Api 开发FTP客户端 （三） ------ 完整代码
Option ExplicitPublic Const MAX_PATH = 260 是由MFC定义的不要更改Public Const INTERNET_OPEN_TYPE_PRECONFIG = 0Public Const INTERNET_OPEN_TYPE_DIRECT = 1Public Const INTERNET_OPEN_TY
- ftp 卡死
最近在和一个第三方的合作中不得已需要使用FTP文件接口。由于FTP Server由对方提供，而且双方背后各自的网络环境都很不单纯等等原因，造成测试环境无法模拟实际情况。测试环境中程序一切正常，但是在部署到生产环境...
- VC实现FTP上传和下载
一、该代码是实现server-client之间的文件上传下载功能 二、首先涉及到几个自己定义的函数 //////////////////////////////////////////////////////////////////// //该函数实现 client与server建立连接 ...
- FTP上传文件，创建文件夹
package com.applyftp; import java.io.File; import java.io.FileInputStream; import java.io.FileNotFoundException; import java.io.IOException; import java.io.InputStream;...import org.apache.commons
- 用Visual Basic创建FTP组件
何为FTP？ 文件传输协议（FTP）是IP世界的核心协议，网络管理人员，Web 开发人员，以及那些想要恢复他们的祖先照片的人天天都在使用它。但是对于ASP开发人员来说，如果没有第三方服务器组件提供这一功能的话，FTP...
- VC++ 获取跳转后的url函数实现及相关资料
// 函数名称：GetHttpRedirectUrl // 函数功能：根据源url获取服务器的跳转后的url，所有函数均为WinInet API // 输入参数：strSrcUrl 源url strDesUrl 跳转后的url // 函数说明：例如： // 源url：down.mumayi....
- C++ FTP通信源代码
Ftp.h #ifndef FTP_H #define FTP_H #include "IFtp.h" #include <InetSDK.h> #include <WinInet.h> #pragma comment(lib, "WinInet.lib") #include <list> #include <...using n...
- 恶意样本分析手册——API函数篇
功能：这是一个多功能的函数，可打开或创建以下对象，并返回可访问的句柄：控制台，通信资源，目录（只读打开），磁盘驱动器，文件，邮槽，管道 函数原型： HANDLE WINAPI CreateFile( _In_ LPCTSTR l...
- 使用WinInet API 进行异步编程
到现在，已经可以实现多线程和同步的下载，可是我的程序还要让用户停止下载时可以实现顺利退出，于是我想用异步，可是WinInet API 在文档中的说明不是很懂，尤其是 INTERNET_STATUS_CALLBACK 怎样使用，我的思路
- WinInet API 的异步方式使用
异步方式并不是什么高深莫测的事物，WinInet API 更是大家耳熟能详。 如果你仔细看过 MSDN 和 internet 上关于 WinInet API 的文章，...由于网络数据传输经常会消耗一定的时间，因此我们总是把这些可能消耗时间的操...
- FTP文件上传demo
该demo主要是封装了MS的Wininet.dll，方便FTP文件上传， 解决了在XP系统下面InternetConnect()接口连接超时严重，且不可控的问题。 该demo在WIN7 64 和XP 32 自测通过。 完整工程源码下载地址： ...
- C#FTP操作
使用系统自带的wininet.dll，对FTP进行文件的查询，下载，上传，文件夹遍历操作。 /// /// /// public static class APIs ... [DllImport("wininet.dll")] public static extern int InternetOpen(string ...
- WINCE C# FTP客户端类
一个完整的WINCE C# FTP客户端类, 致谢： 感谢CSDN accessysq 以及长期以来帮助我的阿飞专家。 /// /// /// public static class APIs { ... // service types for InternetOpen()
- 用WinINet Api 开发FTP客户端
Option ExplicitPublic Const MAX_PATH = 260 是由MFC定义的不要更改Public Const INTERNET_OPEN_TYPE_PRECONFIG = 0Public Const INTERNET_OPEN_TYPE_DIRECT = 1Public Const INTERNET_
- 02文件传输程序
1. FTP传输协议具体内容 1.1 实验目的 文件传送是各种计算机网络都实现的基本功能，文件传送协议是一种最基本的应用层协议按照客户/服务器的模式进行工作，提供交互式的访问，是INTERNET使用最广泛的协议之一。...
- WinInet API 的异步方法使用
异步方式并不是什么高深莫测的事物，WinInet API 更是大家耳熟能详。如果你仔细看过 MSDN 和 internet 上关于 WinInet API 的文章，你会...由于网络数据传输经常会消耗一定的时间，因此我们总是把这些可能消耗时间的操
- Win32的Winnet操作:http的post、get请求、下载文件，ftp的上传、下载
void testhttpPost() { HINTERNET hInternet = InternetOpenA("MyAgent", INTERNET_OPEN_TYPE_DIRECT, NULL, NULL, 0); //初始化WinINet HINTERNET hConnect = InternetConnectA(hInternet, "127.0.0.1
- 用VB创建FTP组件
基本步骤： 1、用一个InternetOpen调用设置环境。 2、调用InternetConnect 函数与主机连接。 3、调用FtpGetFile 达到文件。 4、关闭第1、2步创建的句柄，用InternetCloseHandle 函数。 现在来仔细看看每一步： 1、...
- Xshell6完美破解版，亲测可用
Xshell6破解版，亲测可用，分享给大家。直接解压即可使用
- 个人简历模板
优质简历模板，目前最前全的模板收藏，需要换工作的小伙伴们可以试试
- Android开发精典案例60个【源码】
60个Android开发精典案例，好东西 - 给大家分享60个Android开发的精典案例，包含任务监听、设备适配，游戏框架搭建，特效实现，多点触控，网络协议，游戏关卡设置等内容。特别是做游戏开发的朋友值得研究。喜欢就拿走吧！
- C语言游戏代码大全
双人贪吃蛇，别踩白方块，玫瑰花，矿井逃生等多种C语言游戏代码等你来实践！
- C#高性能大容量SOCKET并发完成端口例子（有C#客户端）完整实例源码
例子主要包括SocketAsyncEventArgs通讯封装、服务端实现日志查看、SCOKET列表、上传、下载、远程文件流、吞吐量协议，用于测试SocketAsyncEventArgs的性能和压力，最大连接数支持65535个长连接，最高命令交互速度达到250MB/S（使用的是127.0.0.1的方式，相当于千兆网卡1Gb=125MB/S两倍的吞吐量）。服务端用C#编写，并使用log4net作为日志模块； 同时支持65536个连接，网络吞吐量可以达到400M。
- C#入门必看实力程序100个
C#入门必看含有100个例字,每个例子都是针对C#的学习关键知识点设计的,是学习C#必须知道的一些程序例子,分享给大家，需要的可以下载
- navicat简体中文版 绿色版 （64位）
解压后安装navicat，打开navicat执行PatchNavicat即破解成功。可以正常使用啦。