vb6.0中利用Command控件打开文件夹

Private Sub Command1_Click()'调用explorer打开目录 '后面的 vbNormalFocus 表示打开后正常大小显示并获得焦点 即以正常大小显示到最前面 Shell "explorer D:\123\图片文件夹", vbNormalFocus End Sub

Private Sub Command1_Click() '打开文件夹 CommonDialog1.InitDir = App.Path + "\备份\"CommonDialog1.ShowOpen text1.Text=CommonDialog1.FileName Name App.Path & "\备份\3.mdb" As App.Path & "\备份\a.mdb"End Sub

当文件路径中含有长文件名（包括文件夹名和文件名）时，就会带有双引号，否则的话，如果里面含有空格，会被误以为是多个文件。如果文件路径中的文件夹名和文件名都是8.3的短文件名结构，则不会出现双引号。

Private Sub CommandButton1_Click()Dim xlApp As Excel.Application = New Excel.Application xlApp.DisplayAlerts = False xlApp.Workbooks.Open("d:\test.xlsx")Dim xlSht As Excel.Worksheet = xlApp.Sheets(1)Dim xlRng As Excel.Range = xlSht.Cells(1, 1)Textbox1.Text = xlRng.Value...

通过使用 CommonDialog 控件的 ShowOpen 和 ShowSave 方法可显示“打开”和“另存为”对话框。两个对话框均可用以指定驱动器，目录，文件扩展名和文件名。除对话的标题不同外，另存为对话外观上与打开对话相似。下例显示“打开”对话框然后在信息框中显示所选的文件名：Private Sub Command1_Click() ...

1，先添加部件，在“工程”菜单里有“部件”，打开“部件”选项卡，找到“Microsoft Common Dialog Contrlo 6.0”选项，然后把前面的勾选，确定，此时在工具箱上出现了“CommonDialog控件” 。2，然后在窗体上添加上CommonDialog控件，一般名称为：CommonDialog1 3，再添加一个Command控件，一般名称为：...

Command1.Caption = "打开form2" '设计标题为 可打开状态 End If End Sub 另外，如果想手工关闭form2也能影响form1的按钮的话，在form2的代码中增加如下代码 Private Sub Form_Unload(Cancel As Integer)'form2关闭后，设置按钮一的状态为可打开状态 Form1.Command1.Caption = "打开form2"End ...

Dim r As String r = Dir("C:\软件\*.exe")shell "C:\软件\"+r 以上代码只能用于该文件夹中只有一个EXE文件时。

或者编写个.bat文件也可以。输入start 盘符：\文件夹名\文件夹名\…\cf.exe\ 然后把这个.bat文件放到开始菜单—程序—启动里就可以了。不如直接用按钮做个游戏菜单！比如网吧里的游戏菜单。private sub command1_click()shell"d:\123.exe"end end sub 你都会做挂了，对不起！我还没到那水平呢…...

只要对控件复制再粘贴，就会提示你要不要定义控件数组，选确定就可以了。另一种在属性窗口对属性Index设置个值，就是该控件的下标了。