出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[2225] 自己レスです。出来ました！
投稿者：ミントさん 2002/06/26 10:27:35
北岳さん、出来ました！！)^o^(
file参照ボックスの値取得をFileName取得にして実行したら、
思い通りのことができました。
長々とつき合って頂いてありがとうございました！

＊ファイル保存 up_file.aspのスクリプト部分
<%

Dim ObjFso
Dim bobj,a,b,Tenp,Fol,F_Name,Up_F
Dim GetFil,f1,newf1,F_Path,fold1,l1

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:\添付資料\" & Fol
If ObjFso.FolderExists(fold1)=false Then ObjFso.CreateFolder(fold1)
F_Path = "D:\添付資料\" & Fol & "\"

GetFil = Array("file1","file2","file3")
i = 1
Do Until i > 3
Fle = bobj.FormFileName(b,GetFil(i-1))←ここでFileName取得に変更
If Fle <> "" Then
newf1=Mid(Fle,InstrRev(Fle,"\")+1)
l1 = bobj.FormSaveAs(b,GetFil(i-1),F_Path & newf1)
End If
i = i + 1
Loop
%>
フォルダを作成してファイルのアップロード 　 ミントさん [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 ＹａｓＮｅｔ