Повесить копирование на кнопку

[Diamand]

Добрый день,
Есть такой код на копирование файлов (Он в модуле - "Module1") :

Option Compare Database

Option Explicit
Public 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

Public Const FO_COPY = 2
Public Const FOF_NOCONFIRMMKDIR = &H200
Public Const FOF_NOCONFIRMATION = &H10

Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As Any) As Long
Private Function myFileCopy(NewFilePath As String, DBPath As String)
    Dim sh_op As SHFILEOPSTRUCT
    Dim Ret As Long
    With sh_op
       .hWnd = 0
       .wFunc = FO_COPY
       .pFrom = NewFilePath & vbNullChar & vbNullChar
       .pTo = DBPath & vbNullChar & vbNullChar
       .fFlags = FOF_NOCONFIRMATION Or FOF_NOCONFIRMMKDIR
    End With
    
    Ret = SHFileOperation(sh_op)

End Function
Sub C()
myFileCopy "C:\B.mdb", "C:\Temp\B.mdb"
End Sub
Sub C1()
myFileCopy "C:\B1.mdb", "C:\Temp\B1.mdb"
End Sub
Sub C2()
myFileCopy "C:\B2.mdb", "C:\Temp\B2.mdb"
End Sub
Sub C3()
myFileCopy "C:\B3.mdb", "C:\Temp\B3.mdb"
End Sub

и есть форма где при выборе из выпадающего списка копируется нужный файл но чет не хочет работать .

Private Sub Кнопка10_Click()
If Pole = B Then Call C
Else 
If Pole = B1 Then Call C1
.................
End Sub

[Teslenko_EA]

Здравствуйте Diamand.
"..Есть такой код .. но чет не хочет работать.." - Вы констатировали, а вопрос в чем?
Не вникая в конструкцию могу утверждать - кода слишком много.
Обращаться к API в Вашем случае думаю нет необходимости
задачу вполне можно решить средствами VB(A), примерно так:

Private Sub Кнопка10_Click()
Const sOldPath = "C:\", sNewPath = "C:\Temp\"
Dim s$
Select Case Pole
Case B: s = "B.mdb"
Case B1: s = "B1.mdb"
Case B2: s = "B2.mdb"
'Case ...
Case Else: '...
End Select
If Not Len(s) = 0 Then
    'предварительное удаление существующего файла
    'If Not Len(Dir(sNewPath + s)) = 0 Then Kill sNewPath + s
    If Len(Dir(sNewPath + s)) = 0 Then FileCopy sOldPath + s, sNewPath + s
End If
End Sub

Евгений.

[Diamand]

Евгений на самом деле на первый взгляд кода много но он сводится к вызову ави типа копирования файлов - ну это когда из папки в папку летают лепестки

а при вызови функции myFileCopy из модуля все ок

Sub C()
myFileCopy "C:\B.mdb", "C:\Temp\B.mdb"
End Sub

но при указании или ссылки в форме (событие кнопки) не райбайтон , не знаю почему, В принципе если скопировать код в модуль и поменять путь

myFileCopy "C:\B.mdb", "C:\Temp\B.mdb

код будет работать ИМХО он универсален , но как прикрутить его на форму с выпадающим списком и кнопкой , ума не хватает

[Teslenko_EA]

Здравствуйте Diamand.
"..как прикрутить его на форму.."
измените
Private Function myFileCopy ...
на
Public Function myFileCopy ...
и можете вызывать её с любого места, не только с формы.
Евгений.

[Diamand]

Добрый день Евгений , про Public я и не вспомнил , спасибо вам !