lorents
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
тут такая проблема
есть код
Код: bStop = false;
function Callback(strSource, strDestination, nCopied, nTotal)
local nPercent = Math.Round(nCopied / nTotal * 100, 0);
Progress.SetText("Progress1", Math.Round(nPercent, 0).."%");
Progress.SetCurrentPos("Progress1", nPercent);
Label.SetText("Label1", strOutFile);
if (bStop) then
Progress.SetCurrentPos("Progress1", 0);
Progress.SetText("Progress1", "");
File.Delete(strOutFile, false, false, false, nil);
return false;
else
return true;
end
end
function SaveAs(strOutDir, strOutFileName)
strFileToCopy = "AutoPlay\\Videos\\ВТО. Изменения в российской экономике.wmv";
local strFiles = CommonDialogs.File(false, "Сохранить",strOutDir, "Видео файл (*.wmv)|*.wmv|", strOutFileName, "wmv", false);
if (strFiles ~= "CANCEL") then
local tblFiles = WinApi.DelimitedStringToTable(strFiles, "|");
if (tblFiles) then
if (File.DoesExist(tblFiles[1])) then
local cBut = Dialog.Message("Сохранить как", tblFiles[1].."\r\nУже существует.\r\nЗаменить существующий файл?", MB_YESNO, MB_ICONQUESTION, MB_DEFBUTTON1);
if (cBut == 6) then
strOutFile = tblFiles[1];
Paragraph.SetText("Paragraph2", tblFiles[1]);
Paragraph.SetProperties("Paragraph2", {TooltipText = tblFiles[1]});
File.Copy(strFileToCopy, tblFiles[1], true, true, true, true, Callback);
error = Application.GetLastError();
if (bStop == false) then
if error ~= 0 then
result = Dialog.Message("Error", "There was an error copying the files to your system. Please try again.", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1);
else
bChecked = CheckBox.GetChecked("CheckBox1");
if (bChecked) then
File.ExploreFolder(Desktop_Folder, SW_SHOWNORMAL);
end
end
end
Window.Close(DialogEx.GetWndHandle(), CLOSEWND_SENDMESSAGE);
else
local strOutDir = String.SplitPath(tblFiles[1]).Drive..String.SplitPath(tblFiles[1]).Folder;
local strOutFileName = String.SplitPath(tblFiles[1]).Filename
SaveAs(strOutDir, strOutFileName);
end
else
strOutFile = tblFiles[1];
Paragraph.SetText("Paragraph2", tblFiles[1]);
Paragraph.SetProperties("Paragraph2", {TooltipText = tblFiles[1]});
File.Copy(strFileToCopy, tblFiles[1], true, true, true, true, Callback);
error = Application.GetLastError();
if (bStop == false) then
if error ~= 0 then
result = Dialog.Message("Error", "There was an error copying the files to your system. Please try again.", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1);
else
bChecked = CheckBox.GetChecked("CheckBox1");
if (bChecked) then
File.ExploreFolder(strOutDir, SW_SHOWNORMAL);
end
end
end
Window.Close(DialogEx.GetWndHandle(), CLOSEWND_SENDMESSAGE);
end
end
else
Window.Close(DialogEx.GetWndHandle(), CLOSEWND_SENDMESSAGE);
end
end
local strOutDir = Shell.GetFolder(SHF_MYDOCUMENTS);
local strOutFileName = "ВТО. Изменения в российской экономике";
SaveAs(strOutDir, strOutFileName); |
проблема в том что если в имени конечного файла копирования есть символ "." (точка) то разрешения файла пишется то что стоит после точки
на пример у меня есть файл который надо скопировать, имя файла - ВТО. Изменения в российской экономике.wmv
скопированный файл носит имя - ВТО. Изменения в российской экономике
как это исправить? |
Всего записей: 3299 | Зарегистр. 30-12-2007 | Отправлено: 19:59 16-12-2008 | Исправлено: lorents, 20:15 16-12-2008 |
|
