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

vB打开指定路径文件夹

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

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 "里面有个空...

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

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

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

如果是exe文件的话把下面一段加入你的程序: sub command1_click() shell "" end sub 如果是txt文件的话把下面一段加入你的程序: sub command1_click() shell "C:\WINDOWS\notepad.exe " end sub 如果是其他格式的话在shell语句中先输入用什么exe...

新建一个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...

'获取文件夹名字。其他相关代码,你给我发消息 dim filen as string filen=“X:/ui/XXX" filen=Right(filen, Len(filen) - InStrRev(filen, "\", Len(filen))) '现在filen=xxx了。

我是原来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(...

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

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