|
发表于 2010-1-25 22:42:44
|
显示全部楼层
- Const 用户名 = "用户名在这里输入"
- Const 密码 = "密码在这里输入"
- Private Sub Command1_Click()
- Open "1.txt" For Append As #1
- Print #1, "send 2.txt 服务器上名字.txt"
- Close #1
- Shell "ftp -s:1.txt 服务器地址", vbHide
- End Sub
- Private Sub Form_Load()
- Open "1.txt" For Output As #1
- Print #1, 用户名
- Print #1, 密码
- Close #1
- Open "2.txt" For Output As #1
- Print #1, Now
- Close #1
- End Sub
复制代码 |
|