ник: seluvan
Добрий день!
Прописиваю:
Set r = CurrentDb.OpenRecordset(st)
sNewFileName = "c:\" & "Папка c " & Format(Time, "hh.mm.ss") & " ) "
If r.RecordCount > 0 Then
MkDir (sNewFileName)
Else
End If
With r
If Me.флаг1= -1 Then
Do While Not .EOF
Set objFile = objFSO.GetFile(r!ПутьКФайлу)
objFile.copy sNewFileName
.MoveNext
Loop
End If
End With
PrintDoc 1
End Sub
создает папку, но не копирует файлы в данную папку.
если меняешь к примеоу на "с:\" то всё копируется без проблем.
в чём замес?