出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[2224] Re:フォルダを作成して複数ファイルの同時アップロード
投稿者：ミントさん 2002/06/26 9:30:25
おはようございます！ミントです。
北岳さんありがとうございました。

北岳さんのアドバイスの通りに修正して実行したら、全て出来たんですが、下記に修正し実行したら出来ませんでした。
同じ事を３回繰り返し処理を行なうので、VBScriptを使いたいのですが、BASP21はVBScriptは使用できないということでしょうか？

＊ファイル保存 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
　　If bobj.Form(b,GetFil(i-1)) <> "" Then
　　FName = bobj.FormFileName(b,GetFil(i-1))
　　newf1=Mid(FName,InstrRev(FName,"\")+1)
　　Up_F = 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 ＹａｓＮｅｔ