VB 打开本地 FTP 地址，文件夹打开方式！

我的本地地址;ftp://192.168.1.9
用户名：12345      密码：123456
1-单击 按键1 后 是在【浏览器 图2所示】中打开，我希望是在【文件夹 图1所示】中打开
2-添加文字 FTP验证，看FTP主机是否连接成功，不连接，文字提示“ftp连接服务器失败”

代码如下：
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "FTP登录用户名不能为空", 16, "提示"
Text1.SetFocus
Else
If Text2.Text = "" Then
MsgBox "FTP登录密码不能为空", 16, "提示"
Text2.SetFocus
Else
Shell "cmd /c start ftp://" & Text1.Text & ":" & Text2.Text & "@" & Combo1.Text & "", 0
End If
End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub