procedure Supper_MkDir(const value:string);
var i,iSepPosition:integer;
sTmpDir:array of string;
begin
setlength(sTmpDir,255);
iSepPosition:=1;
for i:=1 to length(value) do
if value='/' then
begin
sTmpDir[iSepPosition]:=Copy(value,1,i-1);
inc(iSepPosition);
end;
sTmpDir[iSepPosition]:= value;
try
for i:=1 to iSepPosition do
if not DirectoryExists(sTmpDir) then
MkDir(sTmpDir);
except
MessageDlg('建立目录：'+value+'出错！'+#13+#10+''+#13+#10+
'请检查目录名是否正确。', mtError, [mbOK], 0);
raise;
end;
end;
