Для начала вид формы отправки на html:
- Код: Выделить всё
<html>
<body>
<FORM ENCTYPE="multipart/form-data" ACTION="upload.php" METHOD=POST>
Выберете файл: <INPUT NAME="myfile" TYPE="file">
<INPUT TYPE="submit" VALUE="Загрузить">
</FORM>
</body>
</html>
Вот так выглядит скрипт-приемник:
- Код: Выделить всё
<?php
$myfile = $_FILES["myfile"]["tmp_name"];
$myfile_name = $_FILES["myfile"]["name"];
$uploaddir='1/';
$uploadfile=$uploaddir . $myfile_name;
move_uploaded_file($myfile, $uploadfile);
?>
Через html форму файл отлично отправляется и создается в нужной мне папке, но вот с бейсиком ничего не выходит. Код на бейсике:
- Код: Выделить всё
Private Sub Command1_Click()
Call Upload("http://localhost:8080/upload.php", "C:\1.exe")
End Sub
Public Function Upload(ByVal URL_PHP_Script As String, ByVal FileName As String) As Boolean
whr2.Open "POST", URL_PHP_Script, WINHTTP_FLAG_ASYNC
Call whr2.SetRequestHeader("Content-Type", "multipart/form-data")
whr2.Send "myfile=" & FileName
...
Напомню, что с созданием текстовых файлов на сервере, проблем нет (правда этим занимается другой скрипт). Думаю, проблема ясна. Заранее благодарен.
