On-line: Andrey, i3t4j6, Haz, гостей 0. Всего: 3 [подробнее..]
АвторСообщение



Пост N: 483
Зарегистрирован: 17.06.10
ссылка на сообщение  Отправлено: 16.12.16 16:51. Заголовок: Стандартное окно копирования


Добрый вечер !

Как вызвать стандартное окно копирования в Windows ?

Спасибо: 0 
ПрофильЦитата Ответить
Ответов - 7 [только новые]


администратор




Пост N: 6207
Зарегистрирован: 17.05.05
ссылка на сообщение  Отправлено: 16.12.16 16:53. Заголовок: просто погуглил http..

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 484
Зарегистрирован: 17.06.10
ссылка на сообщение  Отправлено: 16.12.16 17:02. Заголовок: Ну видел я это и чег..


Ну видел я это и чего ?

Спасибо: 0 
ПрофильЦитата Ответить
администратор




Пост N: 6208
Зарегистрирован: 17.05.05
ссылка на сообщение  Отправлено: 16.12.16 17:16. Заголовок: Что то тут терли есл..


Что то тут терли если что
http://clipper.borda.ru/?1-4-0-00000707-000-10001-0-1327228398

Спасибо: 0 
ПрофильЦитата Ответить
администратор




Пост N: 6209
Зарегистрирован: 17.05.05
ссылка на сообщение  Отправлено: 16.12.16 17:24. Заголовок: + возможно это core-..


+ возможно это core-master\contrib\hbwin\tests\shfileop.prg

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник


Пост N: 1375
Зарегистрирован: 09.10.06
ссылка на сообщение  Отправлено: 16.12.16 19:09. Заголовок: fil пишет: Ну виде..


fil пишет:

 цитата:

Ну видел я это и чего ?



Наверное, Дима имел в виду что

        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);
}
}



эквивалентно

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



Спасибо: 1 
ПрофильЦитата Ответить



Пост N: 485
Зарегистрирован: 17.06.10
ссылка на сообщение  Отправлено: 17.12.16 13:48. Заголовок: Спасибо, Петр ! Все ..


Спасибо, Петр ! Все копирует, одако делает это втемную и красивого виндового диалога я не увидел

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник


Пост N: 1381
Зарегистрирован: 09.10.06
ссылка на сообщение  Отправлено: 17.12.16 14:36. Заголовок: fil пишет: Все коп..


fil пишет:

 цитата:
Все копирует, одако делает это втемную и красивого виндового диалога я не увидел



Это да.
Для показа диалога нужно воспользоваться второй третьей подсказкой от Димы и заюзать win_SHFileOperation (надстройка над SHFileOperation)


Спасибо: 0 
ПрофильЦитата Ответить
Ответ:
1 2 3 4 5 6 7 8 9
большой шрифт малый шрифт надстрочный подстрочный заголовок большой заголовок видео с youtube.com картинка из интернета картинка с компьютера ссылка файл с компьютера русская клавиатура транслитератор  цитата  кавычки моноширинный шрифт моноширинный шрифт горизонтальная линия отступ точка LI бегущая строка оффтопик свернутый текст

показывать это сообщение только модераторам
не делать ссылки активными
Имя, пароль:      зарегистрироваться    
Тему читают:
- участник сейчас на форуме
- участник вне форума
Все даты в формате GMT  3 час. Хитов сегодня: 82
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет