ww.wxcc.net
当前位置:首页 >> vB打开指定路径文件夹 >>

vB打开指定路径文件夹

Private Sub Command1_Click() Shell "explorer.exe /select,C:\test\123.txt ", vbNormalFocus End Sub

'按钮command1 private sub command1_click()'单击 shell "explorer c:\windows",1 end sub '自行修改路径即可

下例是在指定的路径"C:\D1\"里创建文件夹"NewDir" Dim MyPath As String = "C:\D1\" Dim MyNewDir As String = "NewDir" System.IO.Directory.CreateDirectory(MyPath & MyNewDir)

Private Sub Command1_Click() Dim p As String Open "e:\lao\text1.txt" For Input As #1 Input #1, p Close #1 Shell "explorer.exe " & p End Sub 先将text1.txt里的文件夹路径字符串取出给p 再通过explorer打开,"explorer.exe "里面有个空...

private sub command1_click() shell "c:\1.exe" end sub

shell "explorer.exe ""c:\abc""",vbnormalfocus

commondialog CommonDialog 控件提供诸如打开和保存文件、设置打印选项、选择颜色和字体等操作的一组标准对话框。运行 Windows 帮助引擎时,控件还能够显示帮助。 CommonDialog 控件在 Visual Basic 和 Microsoft Windows 动态连接库Commdlg.dll...

新建一个exe工程 添加Text1,Text2,Command1,List1 粘贴下面代码就能运行使用了 Dim kz As BooleanPrivate Function SearchFiles(Path As String, FileType As String)If kz Then Exit Function Dim Files() As String '文件路径 Dim Folder() A...

我是原来1楼的那个, '建立 Private Sub Command1_Click() Dim fso As New FileSystemObject If fso.FolderExists("c:\abc") Then MsgBox ("文件夹已存在") Else fso.CreateFolder ("c:\abc") End If End Sub '删除 Private Sub Command2_Click(...

VB6.0使用CommonDialog 控件弹出对话框选择文件路径。 通过使用 CommonDialog 控件的 ShowOpen 和 ShowSave 方法可显示“打开”和“另存为”对话框。 两个对话框均可用以指定驱动器,目录,文件扩展名和文件名。除对话的标题不同外,另存为对话外观...

网站首页 | 网站地图
All rights reserved Powered by www.ww.wxcc.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com