Форум » Для флейма » Стандартное окно копирования » Ответить

Стандартное окно копирования

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)



полная версия страницы