C# と VB.NET の質問掲示板

わんくま同盟

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト


(過去ログ 89 を表示中)
■53301 / )  ファイルの送信ができない><
□投稿者/ やんまー (23回)-(2010/09/10(Fri) 00:02:16)

分類:[VB.NET/VB2005 以降] 

恐れいります。

アップロードのWEBアプリを使って簡単にファイルのやりとりが出来ないかと思い、VB.NETでも簡単にできそうなことを知り試しているのですが、なぜか失敗します。

---------------------------------
upload.php (拾ったソースですが 汗)
---------------------------------
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<title>sample</title>
</head>
<body>
<p><?php

if (is_uploaded_file($_FILES["upfile"]["tmp_name"])) {
if (move_uploaded_file($_FILES["upfile"]["tmp_name"], "files/" . $_FILES["upfile"]["name"])) {
chmod("files/" . $_FILES["upfile"]["name"], 0644);
echo $_FILES["upfile"]["name"] . "をアップロードしました。";
} else {
echo "ファイルをアップロードできません。";
}
} else {
echo "ファイルが選択されていません。";
}

?></p>
</body>
</html>
---------------------------

で、VBの方は
--------------------
Sub Button1Click(sender As Object, e As EventArgs)
'ユーザーインターフェイスを表示してファイルをアップロードする
My.Computer.Network.UploadFile( _
"test.txt", "http://localhost/upload/upload.php", "", "",
True, 60000, FileIO.UICancelOption.DoNothing)
End Sub
--------------------

としました。
ボタンを押すと、びゅーっとプログレスバーが上がってうまくいった!!!・・・・と思ったのですが
なにもアップロードされません。

カレントのtext.txtが見つからないかと思い「text.tx」とわざと間違えると、エラーが発生しますので見つかっていると思います。
phpのほうもapacheを止めたりするとエラーになるのでたどれていると思います。

さらにphpがうまく動いていることを確認するために適当にindex.htmlを作って試すのですが、あっさりアップロードできました。
---------------------------
<form action="upload.php" method="post" enctype="multipart/form-data">
<input type="file" name="upfile" size="30">
---------------------------


仕方ないので他のやり方で
-----------------------
Sub Button2Click(sender As Object, e As EventArgs)
Dim filePath As String = "test.txt"
Dim url As String = "http://localhost/upload/upload.php"
Dim wc As New System.Net.WebClient
Dim resData As Byte() = wc.UploadFile(url, filePath)
Dim resText As String = System.Text.Encoding.UTF8.GetString(resData)
debug.Print(">" & resText)
End Sub
-----------------------

とやってみたものの、なんとログには
「ファイルが選択されていません」
が出ました・・・・

いったいどういう事なのでしょう・・・

なにかお気づきの点がありましたら、どうぞよろしくお願いします。


返信 編集キー/


管理者用

- Child Tree -