Classic ASPテストページです。 情報が古いので参考程度に読んだりテストしてみてください。

三流君(TOP) /ASPで遊ぶ /ASP記事一覧を見る

分類: [Form関係] /DB系ADOを使い( [Mdb接続] [CSV接続] [Excel接続]) /[ASPでTextFileを操作] /[VBScript関数ほか]

ディレクトリ内のファイル一覧を表示する
FileSystemObjectの.GetFolder

FileSystemObjectの.GetFolderを使用して、ファイルの一覧を取得してみます
まずは、今のフォルダーが知りたいので(自分のHD上の位置)
Server.MapPath(".")とドットを指定すると
[d:\users\ken3_org\Cgi-bin\test]とフォルダー名が取得できます (IIS5.0はOK 6から..で親参照は厳しくなった?)

次は、.GetFolderを使用して、フォルダーオブジェクトを取得します
For Each OBJ In .Files でファイルのコレクションにアクセスします。
※下記の実行結果とソースを見てください。

読者から いただいたご指摘、
-- 2007/09/11 12:03:34 --
GetExtensionNameで拡張子を取得したほうが汎用性があがるよ。
またSet objDIR = Nothing
で明示的にメモリ解放するのがルール。 解放しないならセッションに入れて毎回オブジェクトが 存在するか確認するとよいですね。
--

d:\users\ken3_org\Cgi-bin\testのファイル一覧です
test001-2.asp 2008/05/27 14:44:27
test001.asp 2008/05/27 14:44:27
test003-1.asp 2008/05/27 14:44:28
test003-2.asp 2008/05/27 14:44:28
test003-3.asp 2008/05/27 14:44:28
test003-4.asp 2008/05/27 14:44:28
test004-1.asp 2009/06/20 14:30:54
test004-1.html 2008/05/27 14:50:47
test005-1.asp 2008/05/27 14:44:29
test006-1.asp 2008/05/27 14:44:29
test006-2.asp 2008/05/27 14:44:29
test007-1.asp 2008/05/27 14:44:21
test007-2.asp 2008/05/27 14:44:21
test007-3.asp 2008/05/27 14:44:21
test008-1.asp 2008/05/27 14:44:22
test008-2.asp 2009/06/20 14:30:55
test009-1.html 2008/05/27 14:50:47
test009-2.html 2008/05/27 14:50:47
test010-1.asp 2008/05/27 14:44:22
test010-2.asp 2008/05/27 14:44:22
test010-3.asp 2008/05/27 14:44:23
test011-1.asp 2008/05/27 14:44:23
test012-1.asp 2009/06/20 14:30:55
test012-2.asp 2008/05/27 14:44:23
test012.html 2008/05/27 14:50:47
test013-1.asp 2009/06/20 14:30:55
test013-2.asp 2008/05/27 14:44:24
test013-3.asp 2008/05/27 14:44:24
test013.html 2008/05/27 14:50:48
test014-1.asp 2008/05/27 14:44:24
test014-2.asp 2008/05/27 14:44:25
test015-1.asp 2008/05/27 14:44:25
test015-2.asp 2008/05/27 14:44:25
test016-1.asp 2008/05/27 14:44:25
test017-1.asp 2008/05/27 14:44:26
test017-2.asp 2008/05/27 14:44:26
test017-3.asp 2008/05/27 14:44:26
test018-1.asp 2008/05/27 14:44:26
test018-2.asp 2008/05/27 14:44:27
test019-1.asp 2008/05/27 14:44:27
test020-1.asp 2008/05/27 14:44:42
test020-2.asp 2009/04/24 16:42:50
test021-1.asp 2008/05/27 14:44:43
test022-1.asp 2008/05/27 14:44:43
test022.html 2019/06/25 18:46:09
test023-1.asp 2008/05/27 14:44:43
test024-1.asp 2008/05/27 14:44:43
test024-2.asp 2008/05/27 14:44:43
test025-1.asp 2009/06/20 14:30:55
test025.html 2008/05/27 14:50:48
test026-1.asp 2010/10/14 1:15:27
test027-1.asp 2009/06/20 14:30:56
test027-2.asp 2010/11/23 0:14:54
test028-1.asp 2010/03/25 22:49:42
test028-2.asp 2010/03/25 22:49:42
test029-1.asp 2011/08/23 23:27:38
test029-2.asp 2017/07/02 10:02:33
test029-3.asp 2011/07/01 15:01:19
test030-1.asp 2009/06/20 14:30:43
test031-1.asp 2008/05/27 14:44:46
test031-2.asp 2008/05/27 14:44:46
test032-1.asp 2009/06/20 14:30:43
test032-2.asp 2009/06/20 14:30:43
test033-1.asp 2009/06/20 14:30:43
test033-2.asp 2010/03/25 16:05:41
test034-1.asp 2008/05/27 14:44:39
test034-2.asp 2008/05/27 14:44:40
test035-1.asp 2008/05/27 14:44:40
test035-1.html 2008/05/27 14:50:48
test035-2.asp 2008/05/27 14:44:40
test035-2.html 2008/05/27 14:50:49
test036-1.asp 2008/05/27 14:44:40
test037-1.asp 2009/06/20 14:30:44
test038-1.asp 2009/06/20 14:30:44
test038-2.asp 2009/06/20 14:30:44
test038-3.asp 2009/06/20 14:30:44
test039-1.asp 2009/06/20 14:30:45
test039-2.asp 2009/06/20 14:30:45
test040-1.asp 2009/06/20 14:30:45
test040-2.asp 2009/06/20 14:30:45
test041-1.asp 2008/05/27 14:45:00
test042-1.asp 2010/03/25 16:22:41
test042-2.asp 2008/05/27 14:45:00
test042-3.asp 2010/03/25 16:22:41
test043-1.asp 2009/06/20 14:30:45
test044-1.asp 2009/06/20 14:30:56
test044-2.asp 2008/05/29 13:21:29
test045-1.asp 2008/05/27 14:45:02
test046-1.asp 2009/06/20 14:30:46
test046-2.asp 2009/06/20 14:30:46
test046-3.asp 2010/10/14 1:15:27
test047-1.asp 2009/06/20 14:30:46
test047-2.asp 2010/10/14 1:15:28
test048-1.asp 2008/05/27 14:45:03
test048-2.asp 2008/05/27 14:45:03
test048-3.asp 2008/05/27 14:45:03
test049-1.html 2008/05/27 14:50:49
test052-1.asp 2008/05/27 14:45:03
test052-2.asp 2008/05/27 14:45:04
test053-1.asp 2008/05/27 14:45:04
test054-1.asp 2008/05/27 14:45:04
test055-1.asp 2008/05/27 14:45:04
test056-1.asp 2008/05/29 13:21:30
test057-1.asp 2008/05/29 13:21:30
test058-1.asp 2008/05/27 14:45:05
test058-2.asp 2008/05/27 14:45:05
test059-1.asp 2008/05/27 14:45:05
test061-1.asp 2008/05/27 14:45:20
test062-1.asp 2009/06/20 14:30:56
test062-2.asp 2009/06/20 14:30:56
test064-1.asp 2008/05/27 14:45:21
test065-1.asp 2009/06/20 14:30:56
test065-2.asp 2009/06/20 14:30:57
test065-3.asp 2009/06/20 14:30:57
test066-1.asp 2009/06/20 14:30:57
test066-2.asp 2009/06/20 14:30:57
test067-1.asp 2009/05/25 11:02:21
test068-1.asp 2008/05/29 13:21:30
test068-2.asp 2008/05/29 13:21:29
test068.html 2009/03/29 11:04:16
test069-1.asp 2008/05/27 14:45:23
test070-1.asp 2009/06/20 14:30:47
test071-1.asp 2008/05/29 13:21:32
test072-1.asp 2009/06/20 14:30:57
test072-2.asp 2009/06/20 14:30:58
test072-3.asp 2009/06/20 14:30:58
test072-4.asp 2009/06/20 14:30:58
test073-1.asp 2009/06/20 14:30:58
test073-2.asp 2009/06/20 14:30:47
test073-3.asp 2009/06/20 14:30:47
test074-1.asp 2009/06/20 14:30:47
test074-2.asp 2009/06/20 14:30:47
test075-1.asp 2009/06/20 14:30:48
test075-2.asp 2009/06/20 14:30:48
test075-3.asp 2009/06/20 14:30:48
test076-1.asp 2009/06/20 14:30:48
test076-2.asp 2009/06/20 14:30:49
test076-3.asp 2009/06/20 14:30:49
test077-1.asp 2009/06/20 14:30:49
test077-2.asp 2010/10/14 1:10:14
test077-3.asp 2009/06/20 14:30:58
test078-1.asp 2008/05/27 14:45:19
test078-2.asp 2009/03/29 11:04:15
test079-1.asp 2008/05/27 14:45:20
test080-1.asp 2008/05/27 14:45:42
test080-2.asp 2008/05/27 14:45:42
test080-3.asp 2008/05/27 14:45:43
test081-1.asp 2008/05/27 14:45:43
test081-2.asp 2008/05/27 14:45:43
test082-1.asp 2009/06/20 14:30:59
test083-1.asp 2009/06/20 14:30:49
test083-2.asp 2009/06/20 14:30:50
test083-3.asp 2009/06/20 14:30:50
test084-1.asp 2009/06/20 14:30:59
test085-1.asp 2008/05/27 14:45:44
test086-1.asp 2008/05/27 14:45:45
test086-2.asp 2008/05/27 14:45:45
test087-1.asp 2009/06/20 14:30:50
test088-1.asp 2009/06/20 14:30:50
test088-2.asp 2009/06/20 14:30:50
test089-1.asp 2009/06/20 14:30:51
test089-2.asp 2009/06/20 14:30:51
test090-1.asp 2008/05/27 14:45:46
test090-2.asp 2008/05/27 14:45:47
test091-1.asp 2008/05/29 13:21:31
test092-1.asp 2008/05/27 14:45:47
test092-2.asp 2009/06/20 14:30:51
test093-1.asp 2009/06/20 14:30:51
test093-2.asp 2009/06/20 14:30:51
test093-3.asp 2009/06/20 14:30:52
test093-4.asp 2009/06/20 14:30:52
test093-5.asp 2009/06/20 14:30:52
test094-1.asp 2008/05/27 14:45:40
test094-2.asp 2008/05/27 14:45:40
test094-3.asp 2008/05/27 14:45:40
test095-1.asp 2008/05/27 14:45:40
test096-1.asp 2008/05/27 14:45:41
test097-1.asp 2008/05/27 14:45:41
test097-2.asp 2008/10/25 0:31:10
test097-3.asp 2008/10/25 0:31:10
test098-1.asp 2008/05/27 14:45:42
test098-2.asp 2008/05/27 14:45:42
test099-1.asp 2008/05/27 14:45:42
test100-1.asp 2009/06/20 14:30:52
test100-2.asp 2009/06/20 14:30:52
test100-3.asp 2009/06/20 14:30:53
test100-4.asp 2009/06/20 14:30:53
test100-5.asp 2009/06/20 14:30:53
test101-1.asp 2008/05/27 14:46:01
test101-2.asp 2008/05/27 14:46:02
test101-3.asp 2009/03/30 8:15:11
test102-1.asp 2008/05/27 14:46:02
test103-1.asp 2008/05/27 14:46:02
test103-2.asp 2009/05/19 16:18:52
test104-1.asp 2009/06/20 14:30:53
test104-2.asp 2009/06/20 14:30:53
test105-1.asp 2009/06/20 14:30:54
test105-2.asp 2009/06/20 14:30:54
test106-1.asp 2008/05/27 14:46:03
test107-1.asp 2008/05/27 14:46:04



.GetFolderを使用したサンプル(ソースの紹介)

詳細解説は[http:/asp/backno/asp067.html]を見てください
下記、/cgi-bin/test/test067-1.aspのソース(中身)です

.GetFolder を 使った ソースコードを紹介する

表示色の説明:ASP VBScriptは <% 〜 %>
キーワードは.GetFolder です。 <%@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>ディレクトリ内のファイル一覧を表示する FileSystemObjectの.GetFolder</title> </head> <body> <h2>ディレクトリ内のファイル一覧を表示する<br>FileSystemObjectの.GetFolder</h2> <b>FileSystemObjectの.GetFolder</b>を使用して、ファイルの一覧を取得してみます<br> まずは、今のフォルダーが知りたいので(自分のHD上の位置)<br> Server.MapPath(".")とドットを指定すると<br> [<%=Server.MapPath(".")%>]とフォルダー名が取得できます (IIS5.0はOK 6から..で親参照は厳しくなった?)<br> <br> 次は、.GetFolderを使用して、フォルダーオブジェクトを取得します<br> For Each OBJ In .Files でファイルのコレクションにアクセスします。<br> ※下記の実行結果とソースを見てください。<br> <br>読者から いただいたご指摘、<br> -- 2007/09/11 12:03:34 --<br> GetExtensionNameで拡張子を取得したほうが汎用性があがるよ。<br> またSet objDIR = Nothing<br> で明示的にメモリ解放するのがルール。 解放しないならセッションに入れて毎回オブジェクトが 存在するか確認するとよいですね。<br> --<br> <hr> <% '*1 FileSystemObjectを生成します、、って英文、そのままジャン。 Set objFS = Server.CreateObject("Scripting.FileSystemObject") '*2 フォルダーの名称を取り出す strFDIRNAME = Server.MapPath(".") 'フォルダー名取得 Response.Write strFDIRNAME & "のファイル一覧です<br>" & vbCRLF '*3 .GetFolderで、フォルダーオブジェクトを取得します Set objDIR = objFS.GetFolder(strFDIRNAME) '*4 .Filesコレクションにアクセスする For Each objFILE In objDIR.Files strFNAME = objFILE.Name '取り出したobjFILEの.Nameを取得 If Right(strFNAME, 4) = ".asp" Then '.ASPならリンクを作る Response.Write "<a href='" & strFNAME & "'>" Response.Write strFNAME & "</a>" & vbTab 'おまけで更新日の表示 Response.Write objFILE.DateLastModified & "<br>" & vbCRLF End If If Right(strFNAME, 5) = ".html" Then '.htmlならそのまま表示 Response.Write strFNAME & vbTab 'おまけで更新日の表示 Response.Write objFILE.DateLastModified & "<br>" & vbCRLF End If Next %> <hr> </body> </html>


Googleで関連項目を検索する

[キーワード:.GetFolder] と サンプル|解説|Dim|Set で検索
↓で検索して他のページも確認してみてください。

Google

あれ?私のページが検索に載ってない(笑)一度お試しを(私のページに、また戻ってきてね(爆))

[Topへ戻る] −−>[ASP系のTOPへ戻る] −−>[記事一覧を見る]

リンク 三流君 ASP系 の 解説を項目ごとにまとめてみました

まぁ、基本はデータの受け取りかなぁ。
・[Form等を使用したデータのやり取り]・・・ASPと言っても、HTMLの入力フォームからデータを受け取ります。POSTやGETでやりとりを押さえますか。

次は、データの入出力 で ADOを使った(ADOで接続) と SQLの解説を少々
・[ADOでMdbファイルを使う]・・・MDBと接続して、簡単な追加・更新・削除を行った。
・[ADOでExcelと接続してみた]・・・.xlsと接続してSQLを使ってみた。
・[ADOでCSVと接続してみた]・・・.CSV テキストを読み出した。※更新・削除はできません

DBが使えるので、あまり使用しないけど、普通のテキストファイル処理
・[テキストファイル処理]・・・ファイルを開いて、書き込む。1行読み込みなどを軽く



VBScriptでFormat関数が無いなど、微妙にVBAと違うけど
[VBScript関数関係の説明]・・・少し、処理を書いてみた。
[その他処理サンプル]・・・あまり良いサンプル作れなかったけど。。。
何かの参考となれば幸いです。

その他:blogや広告↓
[日記的なblog]← あまり更新してないけど・・・
[永遠の下書き日記?]← 恥ずかしいのであまり載せてないけど・・・
[ひとりで掲示板?] ←一人で?掲示板?ぉぃぉぃ


[Topへ戻る] −−>[ASP系のTOPへ戻る] −−>[記事一覧を見る]

現在時刻は、2019/12/11 13:18:44です。