出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[2223] フォルダを作成して複数ファイルの同時アップロード
投稿者：北岳さん 2002/06/25 19:26:21
----------------- /aspfold/1.asp ----------------
<HTML>
<HEAD><TITLE>入力フォーム</TITLE></HEAD>
<BODY>
<p>ファイル送付
<%
x=20020625 'この部分は修正して。
%>
<FORM action="/aspfold/2.asp" METHOD="POST" ENCTYPE="multipart/form-data">
<br><INPUT TYPE="hidden" NAME="a_id" VALUE="<%= x %>">
<br><INPUT TYPE="file" size=90 NAME="file1">
<br><INPUT TYPE="file" size=90 NAME="file2">
<br><INPUT TYPE="submit" value="GO">
</FORM>

----------------- /aspfold/2.asp ----------------
<%
a = Request.TotalBytes
b = Request.BinaryRead(a)
Set bobj = Server.CreateObject("Basp21")
Set ObjFso = Server.CreateObject("Scripting.FileSystemObject")
fol=bobj.form(b,"a_id")
fold1 = "D:\somewhere\" & fol
If ObjFso.FolderExists(fold1)=false Then ObjFso.CreateFolder(fold1)
'以下 http://www.hi-ho.ne.jp/babaq/basp21.html 最下段から流用
f1=bobj.FormFileName(b,"file1")
f2=bobj.FormFileName(b,"file2")
fsize1=bobj.FormFileSize(b,"file1")
fsize2=bobj.FormFileSize(b,"file2")
newf1=Mid(f1,InstrRev(f1,"\")+1)
newf2=Mid(f2,InstrRev(f2,"\")+1)
l1=bobj.FormSaveAs(b,"file1",fold1 & "\" & newf1)
l2=bobj.FormSaveAs(b,"file2",fold1 & "\" & newf2)
%>
<p>サーバの<%=fold1 %>フォルダに
<p><%= newf1 %>
<br><%= newf2 %>
<p>を格納しました。
--------------------------------------------------
フォルダを作成してファイルのアップロード 　 ミントさん [2002/06/25 14:24:50] [2218]
　 Re:フォルダを作成してファイルのアップロード 　 ミントさん [2002/06/25 16:45:29] [2219]
　 　 Re:フォルダを作成してファイルのアップロード 　 くっくさん [2002/06/25 16:52:31] [2220]
　 　 Re:フォルダを作成してファイルのアップロード 　 北岳さん [2002/06/25 17:02:48] [2221]
　 　 　 Re:フォルダを作成してファイルのアップロード 　 ミントさん [2002/06/25 18:29:55] [2222]
　 　 　 　 フォルダを作成して複数ファイルの同時アップロード 　 北岳さん [2002/06/25 19:26:21] [2223]
　 　 　 　 　 Re:フォルダを作成して複数ファイルの同時アップロード 　 ミントさん [2002/06/26 9:30:25] [2224]
　 　 　 　 　 　 自己レスです。出来ました！ 　 ミントさん [2002/06/26 10:27:35] [2225]

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ