Проблема с копированием файла при помощи FileSystemObject - VB

Формулировка задачи:

Басик ругается, что такой объект не найден! Вот код, который должен копировать файл из одного места в другое (взят из MSDN):

Private Sub cmdSave_Click()
Dim i As Integer, copypath As New FileSystemObject
    For i = 0 To 3
        If txtGroup(i).Text = '' Then
            MsgBox 'Ни одно из полей ввода не должно оставаться пустым!', vbCritical + vbOKOnly, strMsgTitle
            Exit Sub
        Else
            copypath.CopyFile App.Path & ' ' & 'data' & ' ' & 'Билет.xls', App.Path & ' ' & 'Билет'
        End If
    Next i
End Sub

В чём может быть проблема? неуж-то я что-то пропустил?

Решение задачи: «Проблема с копированием файла при помощи FileSystemObject»

textual
                            Листинг программы 
                        

                            Dim obj As Object
    Set obj = CreateObject('SCripting.FileSystemObject')
    obj.CopyFile App.Path & ' ' & 'data' & ' ' & 'Билет.xls', App.Path & ' ' & 'Билет'
                        

Оцени полезность:

15 голосов , оценка 4.267 из 5

Похожие ответы