Страница: 1 |
Страница: 1 |
Вопрос: Залить файл на FTP
Добавлено: 15.09.08 13:08
Автор вопроса: @lex
Подскажите, пожалуйста, как залить файл на фтп)
В VB6 пользовался кодом:
Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, ByVal sUserName As String, ByVal sPassword As String, ByVal nService As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
Private Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" (ByVal hFtpSession As Long, ByVal lpszLocalFile As String, ByVal lpszRemoteFile As String, ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean
Private Const INTERNET_SERVICE_FTP = 1
Dim hINetSession As Long
Dim hSession As Long
Private Sub Form_Load()
hINetSession = InternetOpen("MyFTPClient", 0, vbNullString, vbNullString, 0)
hSession = InternetConnect(hINetSession, "uu.do.am", "21", "8uu", "8093504858", INTERNET_SERVICE_FTP, 0, 0)
End Sub
Private Sub Command1_Click()
If FtpPutFile(hSession, "c:\test.txt", "testfile.txt", 1, 0) = False Then
MsgBox ("Ашыпка!")
End If
End Sub
В VB.NET он почему-то работать не хочет(
Ответы
Всего ответов: 14
Номер ответа: 1
Автор ответа:
@lex
Вопросов: 14
Ответов: 262
Профиль | | #1
Добавлено: 15.09.08 13:17
Гыгы) Млять))) 3.14здец я гений) Спалил пасс
Хорошо хоть заметил и сменил
Номер ответа: 2
Автор ответа:
@lex
Вопросов: 14
Ответов: 262
Профиль | | #2
Добавлено: 15.09.08 13:21
Номер ответа: 3
Автор ответа:
VBNet$ik
Вопросов: 1
Ответов: 31
Профиль | | #3
Добавлено: 15.09.08 13:22
ftp.exe в c:\windows
Номер ответа: 4
Автор ответа:
@lex
Вопросов: 14
Ответов: 262
Профиль | | #4
Добавлено: 15.09.08 13:23
ftp.exe
чяво?
Номер ответа: 5
Автор ответа:
D o c a l
ICQ: 408802757
Вопросов: 76
Ответов: 985
Web-сайт:
Профиль | | #5
Добавлено: 15.09.08 17:47
что у тебя За винда
Номер ответа: 6
Автор ответа:
Skywalker
ICQ: 300-70-6пятьЪ
Вопросов: 62
Ответов: 545
Web-сайт:
Профиль | | #6
Добавлено: 15.09.08 17:58
Номер ответа: 7
Автор ответа:
@lex
Вопросов: 14
Ответов: 262
Профиль | | #7
Добавлено: 15.09.08 19:36
можна я тебе позвоню 8093504858??
Номер ответа: 8
Автор ответа:
Skywalker
ICQ: 300-70-6пятьЪ
Вопросов: 62
Ответов: 545
Web-сайт:
Профиль | | #8
Добавлено: 15.09.08 19:42
Номер ответа: 9
Автор ответа:
@lex
Вопросов: 14
Ответов: 262
Профиль | | #9
Добавлено: 15.09.08 19:42
Skywalker, спасибо)
Номер ответа: 10
Автор ответа:
@lex
Вопросов: 14
Ответов: 262
Профиль | | #10
Добавлено: 16.09.08 01:40
Номер ответа: 11
Автор ответа:
MISTER X
ICQ: 463865965
Вопросов: 31
Ответов: 190
Web-сайт:
Профиль | | #11
Добавлено: 10.10.10 12:43
Номер ответа: 12
Автор ответа:
AgentFire
ICQ: 192496851
Вопросов: 75
Ответов: 3178
Профиль | | #12
Добавлено: 10.10.10 15:33
как не попасть в бан за топико-некромантию?
Номер ответа: 13
Автор ответа:
MISTER X
ICQ: 463865965
Вопросов: 31
Ответов: 190
Web-сайт:
Профиль | | #13
Добавлено: 16.10.10 14:34
[top]
В VB.NET он почему-то работать не хочет
он так и так не будет в VB.NET работать.там по другому код выглядит.)
[/top]
Номер ответа: 14
Автор ответа:
MISTER X
ICQ: 463865965
Вопросов: 31
Ответов: 190
Web-сайт:
Профиль | | #14
Добавлено: 16.10.10 14:35
[top]
[/top]
вот я спалился