Форум » Для флейма » Стандартное окно копирования » Ответить
Стандартное окно копирования
fil: Добрый вечер ! Как вызвать стандартное окно копирования в Windows ?
Ответов - 7
Dima: просто погуглил https://msdn.microsoft.com/ru-ru/library/cc165446.aspx
fil: Ну видел я это и чего ?
Dima: Что то тут терли если что http://clipper.borda.ru/?1-4-0-00000707-000-10001-0-1327228398
Dima: + возможно это core-master\contrib\hbwin\tests\shfileop.prg
Петр: fil пишет: Ну видел я это и чего ? Наверное, Дима имел в виду что [pre2] using Microsoft.VisualBasic.FileIO; class FileProgress { static void Main() { // Specify the path to a folder that you want to copy. If the folder is small, // you won't have time to see the progress dialog box. string sourcePath = @"C:\Windows\symbols\"; // Choose a destination for the copied files. string destinationPath = @"C:\TestFolder"; FileSystem.CopyDirectory(sourcePath, destinationPath, UIOption.AllDialogs); } } [/pre2] эквивалентно [pre2]PROCEDURE main LOCAL fso LOCAL sourcePath, destinationPath := "C:\TestFolder" LOCAL overwrite := .F. fso := win_oleCreateObject( "Scripting.FileSystemObject" ) IF fso != NIL sourcePath := fso:GetFolder( "C:\Windows\symbols\" ) sourcePath:Copy( destinationPath, overwrite ) или fso:CopyFolder( "C:\Windows\symbols\", destinationPath, overwrite ) или (ближе к теме вопроса) fso:CopyFile( "c:\mydocuments\letters\*.doc", "c:\tempfolder\", .T. ) ENDIF [/pre2]
fil: Спасибо, Петр ! Все копирует, одако делает это втемную и красивого виндового диалога я не увидел
Петр: fil пишет: Все копирует, одако делает это втемную и красивого виндового диалога я не увидел Это да. Для показа диалога нужно воспользоваться второй третьей подсказкой от Димы и заюзать win_SHFileOperation (надстройка над SHFileOperation)
полная версия страницы