帮我制作上传到我FTP的VB程序

来源：百度知道 编辑：UC知道 时间：2024/05/19 22:43:10
FTP：ftp://59.34.131.56/
只要将Text1.text和Text2.text内容生成qq.txt文件上传
点command1上传不必经过登陆FTP
FTP密码abc2391
最好提示我在那个模块
分不够可以继续加
我QQ773961154
成功后给你100分

我机子上的Inet控件有点问题，不能使用。。。以下把方法写给你
如果有朋友也可以用这个方法看看。。。

1。合并文件，用FSO

FileSystemObject

2.传送文件，用 Inet 控件

Components -> Microsoft Internet Transfer Control 6.0

Private Sub FTPTxtFile()
Dim TRANSFER_STRING As String, PutString As String
Dim lSizeOfFile As Integer
Dim sLocalDir As String
Dim ftp As String

'

sLocalDir = GetSetting(gsTitle, "Settings", "LocalDir", "c:\")
If Right$(sLocalDir, 1) <> "\" Then sLocalDir = sLocalDir & "\"

'Set up FTP Connection
Inet1.URL = "ftp://" & sEdiAddr
Inet1.UserName = sEdiUser
Inet1.Password = sEdiPass
ftp = sEdiPath & sFTPFilename
Call check_EDI_execute

Inet1.Execute , "dir *.txt"
Call check_EDI_execute

'Transfer file
TRANSFE