三流君(TOP) /ASPで遊ぶ /ASP記事一覧を見る
分類: [Form関係] /DB系ADOを使い( [Mdb接続] [CSV接続] [Excel接続]) /[ASPでTextFileを操作] /[VBScript関数ほか]

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

FileSystemObjectの.GetFolderを使用して、ファイルの一覧を取得してみます
まずは、今のフォルダーが知りたいので（自分のＨＤ上の位置）
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 2011/11/17 4:45:19
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 2011/07/14 23:06:56
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>
まずは、今のフォルダーが知りたいので（自分のＨＤ上の位置）<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>

商品:時計関係を紹介(広告)

時計 →の人気

  1. 最凶正規認定店４店舗別注モデル!! フランク三浦　初号機(世界平和)　F 2月1日 最近販売
  2. [フルーコ]FLUCO 時計バンドベルト アメリカ 20mm グリーン 2月1日 伸び率UP
  3. 時計工具シリーズ バネ棒 6mm~22mm → 1月31日 最近販売
  4. ジーエスエックス GSX スターウォーズ R2-D2 SMART Sty 1月31日 伸び率UP
  5. [ベルエア]Bel Air 立体ベゼル＆ラバーベルトのビッグフェイス腕時 1月30日 最近販売
  6. [ベルエア]Bel Air 裏蓋スケルトン自動巻き腕時計・AC-W-BC 1月30日 伸び率UP
  7. タイメックス TIMEX メンズ 腕時計 ウィークエンダー セントラルパ 1月29日 最近販売
  8. フランク三浦X　カリスマ金宅(キム・タク)禁断のコラボ！ブラジリアンイエ 1月29日 伸び率UP

続き(一覧)を見る


Googleで関連項目を検索する

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

あれ？私のページが検索に載ってない（笑）一度お試しを（私のページに、また戻ってきてね（爆））
[Topへ戻る] −−＞[ASP系のTOPへ戻る] −−＞[記事一覧を見る]

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

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

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

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

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

その他：blogや広告↓
[日記的なblog]← あまり更新してないけど・・・
[三流なプログラムコード]← 恥ずかしいのであまり載せてないけど・・・
[通販商品の足跡を紹介] ←通販商品などを紹介してます



現在時刻は、2012/02/10 3:35:09です。