[[20100305080056]]　『指定したフォルダ内のファイルの一覧を取得』（浮き草）　ページの最後に飛ぶ

『指定したフォルダ内のファイルの一覧を取得』（浮き草）
お世話になります
指定したフォルダ内のファイルの一覧を取得したいのですが

 Sub Display_Directory(strPATHNAME As String, fname() As String)
     Const cnsTITLE = "フォルダ内のファイル名一覧取得"
     Const cnsDIR = "\*2010.2*"
この"\*2010.2*"が 毎月"\*2010.3*"の様に月に応じて変化させるには
どうすればよいのでしょうか?
  z=sheet(a1) にしてa1に"\*2010.2*"
  Const cnsDIR = z
うまく行きません　　
宜しくお願いします
excel2007 xpです

 Constは定数宣言です。
 Dimで変数を宣言してあげて代入しましょう。

 Dim cnsDIR As String
 z = Sheets("Sheet1").Range("A1").Value
 cnsDIR = z

 単純に
 cnsDIR = Sheets("Sheet1").Range("A1").Value
 でもいいと思います。

 （通りすがり）

 >Display_Directory(strPATHNAME As String, fname() As String)
 このDisplay_Directoryというプロシジャーのインタフェースを

 Display_Directory        指定したフォルダ内のファイルの一覧を取得
 入力データ　　　　　　　　 strPATHNAME 　　ファイルの一覧を取得するフォルダパス
 出力データ　　　　　　　　 fname()         ファイル名一覧を格納する配列

 という仕様にしたのではないのですか？

 もしそうだとしたら、このプロシジャー内で
 >Const cnsDIR = "\*2010.2*"

 このような定数が出てきてしまうことに疑問を感じます。

 このプロシジャーは、もっと汎用的な機能を持った別のプログラムで
 ファイル名の一覧がほしいときも簡単にこのプログラムを呼び出すことで
 ファイル名が取得できる構造にした方がよいと思いますよ！！

 想像が間違っていなければ、検討してみてください。

 ichinose

(浮き草です)
有り難う御座いました

見よう見まねでマクロに取り組んでいる初心者ですので・・・
でも頑張って　検討してみます

コメント返信：

[ 一覧(最新更新順) ]

[[20100305080056]] 『指定したフォルダ内のファイルの一覧を取得』（浮き草） ページの最後に飛ぶ

[[20100305080056]]　『指定したフォルダ内のファイルの一覧を取得』（浮き草）　ページの最後に飛ぶ