CreateDir有时需要几秒钟(在其他pc目录中)

时间:2016-01-18 04:56:45

标签: delphi delphi-7

我刚尝试使用CreateDir功能在其他PC(网络PC)中创建目录。

uses DateUtils;

var StartDate,EndDate:TDatetime
begin
  StartDate:=Now;
  if CreateDir([NetworkPC_Folder]) then
  begin
    EndDate:=Now;
    Showmessage(
      'Succesfull !'+sLineBreak+
      'It takes '+IntToStr(MilliSecondsBetween(StartDate,EndDate))+' ms ');
  end else
  begin
    EndDate:=Now;
    Showmessage(
      'Failed !'+sLineBreak+
      'Error Code is '+IntToStr(GetLastError)+sLineBreak+
      'It takes '+IntToStr(MilliSecondsBetween(StartDate,EndDate))+' ms '); 
  end;
end;

第一次尝试是有效的 - 返回值为True,成功创建 - 工作快(但有时也需要很长时间)

第二次尝试正在进行中 - 返回值为False,因为目录已存在 - 快速工作

在X尝试工作 - 但需要几秒钟才能给出结果值

我只是好奇为什么有时需要更长的时间。

Delphi7中的其他功能是否检查目录(如果它不存在则创建它)比CreateDir检查/创建网络PC中的文件夹更快?

注意:
- 本地PC中的CreateDir总是很快 - 快速意味着它需要0秒
- 稍微长一点意味着需要1-7秒

0 个答案:

没有答案
相关问题