|
|
|
КОПИРОВАНИЕ READFILE WRITEFILE PB 6.5
|
|||
|---|---|---|---|
|
#18+
МОЖЕТ АМЕРИКУ И НЕ ОТКРЫЛ НО ХОЧУ ПОДЕЛИТЬСЯ СКРИПТОМ pb 6.5 КОПИРОВАНИЕ ЛЮБЫХ ФАЙЛОВ integer li_fhdl_in, li_fhdl_ot integer li_byte blob lb_buffer li_fhdl_in = FileOpen ( <source file name>, StreamMode! ) li_fhdl_ot = FileOpen ( <target file name>, StreamMode!, Write!, LockReadWrite!, Replace! ) li_byte = FileRead ( li_fhdl_in, lb_buffer ) DO WHILE li_byte >= 0 FileWrite ( li_fhdl_ot, lb_buffer ) li_byte = FileRead ( li_fhdl_in, lb_buffer ) LOOP FileClose ( li_fhdl_in ) FileClose ( li_fhdl_ot ) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.10.2007, 20:10 |
|
||
|
КОПИРОВАНИЕ READFILE WRITEFILE PB 6.5
|
|||
|---|---|---|---|
|
#18+
Фтопку. // ----------------------------------- Function Boolean CopyFile(ref String lpExistingFileName, ref String lpNewFileName, Boolean bFailIfExists) Library "KERNEL32.DLL" Alias for "CopyFileA" // ----------------------------------- CopyFile(sSrc, sDest, FALSE) // ----------------------------------- А для эстетов ещё есть ShFileOperation() ;). ____________________________________ - Гарфилд, мышь! - Спасибо, я сыт! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.10.2007, 23:31 |
|
||
|
|
start [/forum/topic.php?fid=15&msg=34839363&tid=1336969]: |
0ms |
get settings: |
10ms |
get forum list: |
14ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
45ms |
get topic data: |
12ms |
get forum data: |
3ms |
get page messages: |
47ms |
get tp. blocked users: |
2ms |
| others: | 12ms |
| total: | 153ms |
| 0 / 0 |
Извините, этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
... ля, ля, ля ...
