使用网上比较普遍的vb中使用WindowsAPI实现打开文件对话框代码, Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _ "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) AsLong Type OPENFILENAME lStructSize AsLong hwndOwner AsLong hInstance AsLong lpstrFilter AsString lpstrCustomFilter As