程序代码：

'FTP上传程序
'我的步骤,不是全部代码,只写重要的:
'InternetOpen打开一个会话,成功
FTPSession = InternetOpen(CurrentUser.StaffID, INTERNET_OPEN_TYPE_DIRECT, "", "", INTERNET_FLAG_NO_CACHE_WRITE)
'InternetConnect,打开一个连接,成功
FTPServer = InternetConnect(FTPSession, .FTPServer, .FTPPort, .FTPUserName, .FTPPassWord, INTERNET_SERVICE_FTP, INTERNET_FLAG_EXISTING_CONNECT, &O0)
'创建一个文件,成功
HFile = FtpOpenFile(FTPServer, "/" & .WorkPath & "/" & UpLoadFileName, GENERIC_WRITE, FTP_TRANSFER_TYPE_BINARY, &O0)
'下面开始往创建的文件中写数据,问题所在
'用到InternetWriteFile函数,(不用FtpPutFile,因为大文件或网速慢会拖死系统)这个函数是这样声明的:
'Declare Sub InternetWriteFile Lib "wininet.dll" (ByRef hFile As Long, lpBuffer As Any, ByVal dwNumberOfBytesToWrite As Long, ByRef lpdwNumberOfBytesWritten As Long)
'其中的lpBuffer是要传入的数据,我把any改成String类型,改成Byte就出错
'定义上传缓冲 dim sBuffer as String *1024
'问题也就在这儿了,用String类型读写二进制数据总是有问题
应该用Byte才行的,可一改成byte类型就报错,说是dll不允许这样做,无奈
要怎样用String类型读写Byte类型数据呢?