使用 CommonDialog 控件
CommonDialog 控件提供诸如打开和保存文件、设置打印选项、选择颜色和字体等操作的一组标准对话框。在运行 Windows 帮助引擎时,控件还能够显示帮助。图 7.11 CommonDialog 控件 CommonDialog 控件在 Visual Basic 和 Microsoft Windows 动态连接库 Commdlg.dll 例程之间提供了接口。为了用该控件创建对话框,必须要求 Commdlg.dll 在 Microsoft Windows \System 目录下。为了在应用程序中使用 CommonDialog 控件,应将其添加到窗体上并设置属性。控件显示的对话由控件的方法决定。运行时,调用相应方法后将显示对话框或执行帮助引擎;设计时在窗体上将 CommonDialog 控件显示成一个图标。此图标的大小不能改变。 CommonDialog 控件可以显示如下常用对话框: “打开”
“另存为”
“颜色”
“字体”
“打印”
要使用 CommonDialog 控件 若未添加 CommonDialog 控件,则应从“工程”菜单中选定“部件”,将控件添加到工具箱中。在标记对话的“控件”中找到并选定控件,然后单击“确定”按钮。
单击工具箱中的“CommonDialog”控件并在窗体上绘制该控件。
在窗体上绘制 CommonDialog 控件时,控件将自动调整大小。象 Timer 控件一样,CommonDialog 控件在运行时不可见。运行时,请适当使用下表所列方法显示需要的对话。 方法 显示的对话
ShowOpen 打开
ShowSave 另存为
ShowColor 颜色
ShowFont 字体
ShowPrinter 打印
ShowHelp 调用 Windows“帮助”
CommonDialog 控件提供诸如打开和保存文件、设置打印选项、选择颜色和字体等操作的一组标准对话框。在运行 Windows 帮助引擎时,控件还能够显示帮助。图 7.11 CommonDialog 控件 CommonDialog 控件在 Visual Basic 和 Microsoft Windows 动态连接库 Commdlg.dll 例程之间提供了接口。为了用该控件创建对话框,必须要求 Commdlg.dll 在 Microsoft Windows \System 目录下。为了在应用程序中使用 CommonDialog 控件,应将其添加到窗体上并设置属性。控件显示的对话由控件的方法决定。运行时,调用相应方法后将显示对话框或执行帮助引擎;设计时在窗体上将 CommonDialog 控件显示成一个图标。此图标的大小不能改变。 CommonDialog 控件可以显示如下常用对话框: “打开”
“另存为”
“颜色”
“字体”
“打印”
要使用 CommonDialog 控件 若未添加 CommonDialog 控件,则应从“工程”菜单中选定“部件”,将控件添加到工具箱中。在标记对话的“控件”中找到并选定控件,然后单击“确定”按钮。
单击工具箱中的“CommonDialog”控件并在窗体上绘制该控件。
在窗体上绘制 CommonDialog 控件时,控件将自动调整大小。象 Timer 控件一样,CommonDialog 控件在运行时不可见。运行时,请适当使用下表所列方法显示需要的对话。 方法 显示的对话
ShowOpen 打开
ShowSave 另存为
ShowColor 颜色
ShowFont 字体
ShowPrinter 打印
ShowHelp 调用 Windows“帮助”
c:\windows\command.com
你要的返回值是
c:\还是c:\windows那
Dim filespec As String
Dim running As Boolean
Private Sub mnufindfiles_click()
If running Then: running = False: Exit Sub
filespec = InputBox("Enter a file spec:", "Find File(s)", "*.exe")
If Len(filespec) = 0 Then Exit Sub
running = True: mnufindfiles.Caption = "stop!"
Set ds = fso.Drives
For Each di In ds
If di.IsReady Then
s = di.DriveLetter & ":\"
ChDrive s
searchdirs (s) `查找每个准备好的盘符
End If
Next
End Sub
Private Sub searchdirs(curpath)
Set fd = fso.GetFolder(curpath)
Set fdsubs = fd.SubFolders
Set fls = fd.Files
Dim fdi As Folder
Dim fli As File
Form1.Cls: Print "searching" & curpath
DoEvents
If Not running Then Exit Sub
For Each fli In fls
If LCase(fli.Name) = Trim(LCase(filespec)) Then
List1.AddItem fli.Name
End If
Next
For Each fdi In fdsubs
searchdirs fdi.Path & "\"
Next
End Sub
copy 过来的,试试这个。
1.利用VB的标准控件DriveListBox,DirListBox和FileListBox进行遍历
2.API函数findfirstfile等
3.创建自己的类:clsDrives,clsDirs,clsFiles进行遍历
到http://www.wzjcw.net/vbgood/bbs/brow.asp?id=32315&tID=32266&style=VB技巧
去看看