Как я копирую открытый файл в VB6? [дубликат]
Без вмешательства пользователя вы можете отправить следующее:
-
Отправить электронное письмо от клиента apk. Здесь mail.jar, Activation.jar требуется для отправки электронной почты Java. Если эти банки добавить, это может увеличить размер APK.
-
В качестве альтернативы, вы можете использовать веб-сервис на стороне сервера, который будет использовать те же mail.jar и Activation.jar для отправки электронной почты. Вы можете позвонить в веб-сервис через asynctask и отправить электронное письмо. Обратитесь по той же ссылке.
(Но вам нужно будет знать учетные данные почтовой учетной записи)
2 ответа
Если вы попытаетесь использовать оператор FileCopy для текущего открытого файла, произойдет ошибка. Однако у функции CopyFile FileSystemObject нет проблем, поэтому используйте ее. Во-первых, вам нужно будет добавить ссылку на среду выполнения сценариев Microsoft (в меню Проект-> Ссылки ...). Затем вы можете сделать это:
Dim fso As New FileSystemObject
fso.CopyFile "\\someOtherComputer\share\foo.mdb", "C:\foo.mdb"
Вы также можете использовать Windows API
Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" _
(ByVal lpExistingFileName As String, ByVal lpNewFileName As String, _
ByVal bFailIfExists As Long) As Long
Public Function CopyFileA(OldFileName As String, NewFileName As String) As Boolean
On Error Resume Next
If CopyFile(OldFileName, NewFileName, False) <> 1 Then
MsgBox "Error copying file", vbExclamation,
Else
CopyFileA = True
End If
End Function