VBNet - Форум - Progress bar + Copy

Вопрос: Progress bar + Copy Добавлено: 12.11.03 01:51

Автор вопроса: StrikeR | Web-сайт: www.highlight.ee | ICQ: 151819

Narod....Spasaite:)

est takaja vesh, kak File System Object. Hochu sdelat v svoie proge kopirovku failov (fso.copyfile "c:\blabla.txt", "d:\New folder\blabla.txt). Kak sdelat tak, chto by Progressbar pokazqval skolko on uze skopiroval???

Ответить

Ответы Всего ответов: 4

Номер ответа: 1
Автор ответа:

boevik

Хранитель чата

ICQ: 137392264

Вопросов: 8
Ответов: 557

Web-сайт: www.hypertech.ru
Профиль | | #1

Добавлено: 12.11.03 09:58

С помощью FSO такого не сделать. Для этого надо юзать SHFileOperation

И пример,

'Declarations

Private Type SHFILEOPSTRUCT
    hWnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAborted As Boolean
    hNameMaps As Long
    sProgress As String
End Type

Private Const FO_MOVE As Long = &H1
Private Const FO_COPY As Long = &H2
Private Const FO_DELETE = &H3
Private Const FO_RENAME As Long = &H4

Private Const FOF_ALLOWUNDO = &H40
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

'Copy operation

Dim SHFileOp As SHFILEOPSTRUCT

    With SHFileOp
        'copy operation
        .wFunc = FO_COPY
        'Source directory
        .pFrom = "C:\projects\*"
        'destination directory
        .pTo = "c:\temp\"
    End With
    'perform file operation
    SHFileOperation SHFileOp
    If SHFileOp.fAborted Then
        MsgBox "The operation wsa aborted by user", vbExclamation + vbOKOnly
    Else
        MsgBox "The directory was copied", vbInformation + vbOKOnly
    End If

Ответить

Номер ответа: 2
Автор ответа:

StrikeR

ICQ: 151819

Вопросов: 32
Ответов: 110

Web-сайт: www.highlight.ee
Профиль | | #2

Добавлено: 12.11.03 12:47

pchemu ze ne poluchitsa??? hoches skazat, chto takogo netu: fso.copyfile "c:\1.txt", "a:\1.txt"?????????

a nashet togo, chto ty mne dal: kak mne sdela, chto by u progress bara VALUE menjalos v zavisimosti ot togo skoka uze skachalos

Ответить

Номер ответа: 3
Автор ответа:

boevik

Хранитель чата

ICQ: 137392264

Вопросов: 8
Ответов: 557

Web-сайт: www.hypertech.ru
Профиль | | #3

Добавлено: 12.11.03 12:57

StrikeR "a nashet togo, chto ty mne dal: kak mne sdela, chto by u progress bara VALUE menjalos v zavisimosti ot togo skoka uze skachalos "

Кинь этот код и посмотри что будет. А если останутся вопросы, то пожалуйста, спрашивай.

Ответить

Номер ответа: 4 Автор ответа: AASoft Вопросов: 86 Ответов: 920	Профиль \| \| #4	Добавлено: 13.11.03 02:49
	po odnomu bajtu kapiruj Ответить

Страница: 1 |