InstallShield高级应用--打开文件对话框
2012-05-11 11:07
204 查看
打开文件对话框,若异常则打开文件夹对话框。
实现方法如下
export prototype number OpenFileDialog(byref string);
//Open File Dialog User Com object "UserAccounts.CommonDialog"
function OpenFileDialog(szFileFullPath)
OBJECT ObjDialog;
begin
try
set ObjDialog = CreateObject("UserAccounts.CommonDialog") ;
ObjDialog.Filter = "Access File(*.mdb)|*.mdb";//|All Files(*.*)|*.*" ;
//ObjDialog.FilterIndex = 1;
//ObjDialog.InitialDir = "c:\\";
//Open File Dialog
if ObjDialog.ShowOpen() then
szFileFullPath = ObjDialog.FileName;
endif;
catch
set ObjDialog = NOTHING;
return -1;
endcatch;
set ObjDialog = NOTHING;
return 0;
end;
实现方法如下
export prototype number OpenFileDialog(byref string);
//Open File Dialog User Com object "UserAccounts.CommonDialog"
function OpenFileDialog(szFileFullPath)
OBJECT ObjDialog;
begin
try
set ObjDialog = CreateObject("UserAccounts.CommonDialog") ;
ObjDialog.Filter = "Access File(*.mdb)|*.mdb";//|All Files(*.*)|*.*" ;
//ObjDialog.FilterIndex = 1;
//ObjDialog.InitialDir = "c:\\";
//Open File Dialog
if ObjDialog.ShowOpen() then
szFileFullPath = ObjDialog.FileName;
endif;
catch
set ObjDialog = NOTHING;
return -1;
endcatch;
set ObjDialog = NOTHING;
return 0;
end;
相关文章推荐
- InstallShield高级应用--文件操作
- VBA文件对话框的应用(VBA打开文件、VBA选择文件、VBA选择文件夹)
- VBA文件对话框的应用(VBA打开文件、VBA选择文件、VBA选择文件夹)
- ArcGIS VBA 打开文件对话框 OpenFileDialog
- 扩展windows的打开文件的对话框
- VC 文件对话框打开文件
- Android开发 打开文件 选择文件对话框
- MFC中CFileDialog打开和保存文件对话框
- 让网页附件为Word或Excel的文件,下载时直接弹出下载对话框,而不打开它
- 设置打开或保存文件对话框的文件类型
- MACOS: 如何在应用程序中应用文件超链接,直接打开文件
- uigetfile函数的使用(打开检索文件对话框)
- QT 打开文件对话框
- JS打开选择本地文件的对话框
- Javascript高级应用:文件操作篇
- MFC打开/保存文件对话框:CFileDialog
- 【黑马训练营】"打开/保存"文件对话框的相关运用备忘
- MFC打开文件对话框
- 终于找到可以在win32 sdk下打开文件选择对话框的方法。
- Android学习之调用系统应用打开文件