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

このページの過去ログからBASP21を見つけてサーバにインストールして
テストをしています。
BASP21のFAQにあるサンプルソースはやってみたところ成功しました。
成功後、下記のように自分でVBScriptも入れて組んでみたのですが、
どうしてもフォルダを作成するところで、エラーが出てしまいます。
どのようにフォルダを作成すればいいでしょうか？
お分かりになる方、アドバイスを宜しくお願い致します。


＊入力フォーム a_new.asp

<FORM>タグに「action="up_file.asp"」を追加し、下記
up_file.aspにフォーム内容を送信するようにしています。


＊ファイル保存 up_file.asp
<%
Dim ObjFso,ObjFolder,ColFolder
Dim GetFil,newf1,F_Path
Dim bobj,a,b,Fol,F_Name,Up_F

Set ObjFso = Server.CreateObject("Scripting.FileSystemObject")
Set ObjFolder = ObjFso.GetFolder("D:\添付資料\anken")
Set ColFolder = ObjFolder.SubFolders
Fol = Request("a_id")　←全ページのテキストボックスリクエスト
ColFolder.Add(Fol)　←Request("a_id")に入っているNoを名前にし、フォルダを作成。でも、ここが出来ません。
ObjFso.Close
ObjFolder.Close
ColFolder.Close
F_Path = "D:\添付資料\" & Fol & "\"

GetFil = Array("file1","file2","file3")
i = 1
Do Until i > 5
If Fi <> "" Then
Set bobj = Server.CreateObject("Basp21")
a = Request.TotalBytes
b = Request.BinaryRead(a)
FName = bobj.FormFileName(b,GetFil(i-1))
newf1=Mid(FName,InstrRev(FName,"\")+1)
Up_F = bobj.FormSaveAs(barray,GetFil(i-1),F_Path & newf1)
End If
i = i + 1
Loop
%>
<HTML><HEAD><TITLE>File Upload Test</TITLE>
<BODY>
<H1>Testing</H1>
Path = <%=F_Path%><BR>
FNAME = <%=FName%><BR>
file1= <%=newf1%><BR>
len1= <%=Up_F%><BR>
</BODY></HTML>
フォルダを作成してファイルのアップロード 　 ミントさん [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 ＹａｓＮｅｔ