and4_Click() Dim lpIDList As Long Dim udtBI As BrowseInfo ''''初试化udtBI结构 With udtBI .hwndOwner = Form1.hWnd .ulFlags = BIF_RETURNONLYFSDIRS End With ''''弹出文件夹查看窗口 lpIDList = SHBrowseForFolder(udtBI) If lpIDList Then ''''查找文件 SHFindFiles lpIDList, 0 Call CoTaskMemFree(lpIDList) End If End Sub Private Sub Command5_Click() SHObjectProperties Form1.hWnd, 2, ″c:\windows\notepad.exe″, ″Samples″ End Sub Private Sub Form_Load() Command1.Caption = ″运行程序″ Command2.Caption = ″更改图标″ Command3.Caption = ″打开文件″ Command4.Caption = ″查找文件″ Command5.Caption = ″显示文件属性″ End Sub 运行程序，分别点击不同的按钮，就可以看到不同的按钮实现了对不同的系统对话框的调用。以上程序在Windows98、VB6下运行通过。（完） （长沙 陈锐）
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
