Здравствуйте, помогите пожалуйста!
необходимо копировать файлы из заданой папки на ftp... есть модуль->процедура:
Public Sub Копировать_файлы(откуда As String, куда As String)
Dim Среда As Shell
Dim Папка As Folder
Set Среда = New Shell
Set Папка = Среда.NameSpace(куда)
If (Not Папка Is Nothing) Then
Папка.CopyHere откуда, 16 + 128
End If
Set Папка = Nothing
Set Среда = Nothing
End Sub
пока копировали из папки в папку все шло гладко, как только указали ftp начало выскакивать окно подтверждения замены файла не смотря на параметр 16. с чем может быть связано, куда смотреть,