No.1ベストアンサー
- 回答日時:
FileSystemObject を利用することにより
一覧情報を得ることができます。
簡単なサンプルをあげておきます。
ListFiles という関数に物理パスを渡すと、ファイル一覧のテーブルを作成します。
※テーブルのデザインは、OKwebにあわせてみました.
------ ListFiles.asp
<% Option Explicit %>
<HTML>
<HEAD>
<STYLE>
TABLE {border-color: #FDCD1A; border-width:4px; border-style:double; border-collapse:collapse;}
TH { background-color:#FDCD1A; color:#535353; font-size:12px;}
TD { font-size:12px;border-color: #FDCD1A;}
</STYLE>
</HEAD>
<BODY>
<p>ファイル一覧</p>
<% ListFiles "c:\" %>
</BODY>
</HTML>
<%
'--- ファイルの一覧を作成する
Sub ListFiles(strPath)
Dim FileSystem, Folder, Files, File
'--- ファイルシステムオブジェクトを作成
Set FileSystem = Server.CreateObject _
("Scripting.FileSystemObject")
'--- フォルダオブジェクトを作成
Set Folder = FileSystem.GetFolder(strPath)
'--- ファイル一覧オブジェクトを作成
Set Files = Folder.Files
'--- Table 形式で出力
Response.Write "<TABLE border=1>" & vbCrLf
Response.Write "<TR >"
Response.Write "<TH NOWRAP>ファイル名</TH>"
Response.Write "<TH NOWRAP>サイズ</TH>"
Response.Write "<TH NOWRAP>作成日</TH>"
Response.Write "<TH NOWRAP>更新日</TH>"
Response.Write "<TH NOWRAP>参照日</TH>"
Response.Write "</TR>" & vbCrLf
For Each File In Files
'--- ファイル名を出力
Response.Write "<TR>"
Response.Write "<TD>" & File.Name & "</TD>"
Response.Write "<TD Align=Right>" & File.Size & "</TD>"
Response.Write "<TD>" & File.DateCreated & "</TD>"
Response.Write "<TD>" & File.DateLastModified & "</TD>"
Response.Write "<TD>" & File.DateLastAccessed & "</TD>"
Response.Write "</TR>"
Next
Response.Write "</TABLE>" & vbCrLf
'--- オブジェクトを開放
Set File = Nothing
Set Files = Nothing
Set Folder = Nothing
Set FileSystem = Nothing
End Sub
%>
----- ココマデ
この回答へのお礼
お礼日時:-0001/11/30 00:00
ありがとうございます!
大変助かりました。
わざわざサンプルまで作っていただいてすいません。
これでやっと家のマクラで寝られそうです。
今回のでASP未熟なのを痛感しました・・・。
重ね々々、ありがとうございました。
11/26 Canary-Ho
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
phpのファイルがブラウザで開か...
-
エクセルに張り付けた写真のフ...
-
MS onedriveの中にあるaccessプ...
-
onedrive にexcelファイルをア...
-
キヤノン アソビカメラ iNSPiC ...
-
VBAでPDFを作成する際、同じ名...
-
vba 空のデータをSplitする時の...
-
バッチファイル IF文の書き方に...
-
VBAでPDF作成をしたあと、指定...
-
aspxをhtmlに変換する方法について
-
asp.netにてgridviewの列を動的...
-
SPIの非言語の割合と比が難しく...
-
ffftpでファイル取得が0バイト...
-
【VB.NET】for each文からのINS...
-
Windows10にデュアルブートでXP...
-
VB.NETでMSComm が追加できず?
-
スイッチが二台あり、別々のア...
-
Excel 条件集計
-
SPO2測定
-
高校1年生情報の問題について。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ファイルやフォルダの有無、他...
-
Access2003で「オブジェクト'○○...
-
FileExitsについて
-
BASP21を使わないファイルアッ...
-
VBScriptでファイル検索
-
Excelでのデータ挿入が上手くで...
-
拡張子.vbsのファイルの外部フ...
-
EXCELのプロセスを終了さ...
-
何百台の社内端末移設をしてお...
-
Accessでパソコンの情報を得るには
-
VBScriptでファイルアップロー...
-
delphiネットワークドライブフ...
-
Excelでdatファイルを作成??
-
複数のテキストファイルをexcel...
-
フォルダ作成用バッチファイル...
-
【Excel VBA】PDFを作成して,...
-
Microsoft Access エラー 3051
-
テキストファイルの文字色に色...
-
1フォルダに保存できるファイル...
-
VBAでファイルパスが長すぎてコ...
おすすめ情報