我刚尝试使用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秒