Delphi打开目录文件夹的几中类型

最新推荐文章于 2022-10-17 14:18:35 发布

daiswy

最新推荐文章于 2022-10-17 14:18:35 发布

阅读量3.7k

点赞数

分类专栏： Delphi 文章标签： TFileOpenDialog ShellExecute SelectDirectory GetOpenFilename GetSaveAsFilename

本文链接：https://blog.csdn.net/daiswy/article/details/53813502

版权

Delphi 专栏收录该内容

8 篇文章 0 订阅

订阅专栏

1.打开目录

第一种：

procedureTfmExportRangetoFile.btnOkClick(Sender: TObject);

Var

OpenDialog: TFileOpenDialog;

SelectedFolder: string;

begin

OpenDialog := TFileOpenDialog.Create(Self);

try

    OpenDialog.Options := OpenDialog.Options +[fdoPickFolders];

    If Not OpenDialog.Execute Then

      Abort;                       //中止代码，不执行后面的代码了

    SelectedFolder := OpenDialog.FileName;

    ShowMessage(SelectedFolder);

finally

    OpenDialog.Free;

end;

end;

运行效果：

第二种：

首先得引入shellapi单元。

procedureOpenCurDocFolderMethod;

begin

xWb := FXLApp.ActiveWorkbook ;

ShellExecute(FXLApp.Hwnd ,PChar('Open'),PChar('Explorer.exe'),

PChar('/select,'+xwb.Path[0] + '\' +xWb.Name), nil, 1);

{Explorer 命令格式：

   Explorer [/n][/e][[,/root],[path]][[,/select],[pathfilename]]

   参数说明：

      /n 表示以"我的电脑"方式打开一个新的窗口，通常打开的是Windows安装分区的根目录。

      /e 表示以"资源管理器"方式打开一个新的窗口，通常打开的是Windows安装分区的根目录。

      /root,[path] 表示打开指定的文件夹，/root表示只是显示指定文件夹下面的文件（夹），不显示其它磁盘分区和文件夹；[path]表示指定的路径。

      如果不加/root参数，而只用[path]参数，则可以显示其它磁盘分区和文件夹中的内容。另外，[path]还可以指定网络共享文件夹。

      /select,[path filename] 表示打开指定文件夹并且选中指定的文件夹，[path filename]表示指定的路径和文件名。

      如果不加/select参数，则系统会用相应的关联程序打开该文件。如果[path filename] 不跟文件名就会打开该文件夹的上级目录并选中该文件夹。}

end;

运行效果：

第三种：

procedureSplitWorkbookMethod;

var

i : Integer ;

xSht : Variant ;

xWb : Variant ;

xPath : string;

begin

FXLApp.ScreenUpdating[0] := False ;

xShts := FXLApp.Worksheets ;

if SelectDirectory('SelectPath:','',xPath,[sdNewFolder ,sdNewUI],nil) = True then

    for i := 1 to xShts.Count do

      begin

        xSht := xShts.Item[i] ;

        xSht.Copy;

        xWb := FXLApp.ActiveWorkbook ;

        xWb.SaveAs(xPath + '\' +string(xsht.name));

        xWb.Close ;

      end

else

    begin

    end;

FXLApp.ScreenUpdating[0] := True ;

end;

运行效果：

第四种：

选择图片（可多选）

FXLApp.GetOpenFilename(null,null,'Txt_InsertPic','Txt_Insert',True,0) ’其中参数为True时支持多选，为False时单选

运行效果：

第五种：

xFileString: string

xFileString :=FXLApp.GetSaveAsFilename('','Comma Separated Text (*.CSV),*.CSV',EmptyParam,EmptyParam ,EmptyParam ,0); FXLApp.ActiveWorkbook.SaveAs(xFileString ,xlCSV ,EmptyParam ,EmptyParam,EmptyParam ,False ,xlNoChange , EmptyParam ,EmptyParam ,EmptyParam ,EmptyParam,EmptyParam,0);

运行效果: