Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


57247 / 76738 ←次へ | 前へ→

【24228】ファイル一覧作成
質問  あいんすと  - 05/4/16(土) 10:55 -

引用なし
パスワード
   とあるサイトから入力したアドレスのフォルダ内にあるファイル名を
エクセルにリストアップするマクロを入手したんですが、
これに、更新日時とサイズを記載する方法はありますか?

Private Sub CommandButton1_Click()

  Const cnsTITLE = "List file name in the folder"
  Const cnsDIR = "\*.*"
  Dim xlAPP As Application
  Dim strPATHNAME As String
  Dim strFILENAME As String
  Dim GYO, i As Long

  Set xlAPP = Application

  strPATHNAME = xlAPP.InputBox("Input folder address.", cnsTITLE, "C:\")


  If StrConv(strPATHNAME, vbUpperCase) = "FALSE" Then Exit Sub
  'check input
  If Dir(strPATHNAME, vbDirectory) = "" Then
    MsgBox "There is no input folder.", vbExclamation, cnsTITLE
    Exit Sub
  End If


Workbooks.Add

  Range("A1") = "No."
  Range("B1") = "File name"
  Range("A2:B65536") = ""

  GYO = 2

  'get top file name
  strFILENAME = Dir(strPATHNAME & cnsDIR, vbNormal)

  Do While strFILENAME <> ""
    Cells(GYO, 1) = GYO - 1
    Cells(GYO, 2).Value = strFILENAME
    strFILENAME = Dir()
    GYO = GYO + 1
  Loop
  Columns("A:B").Select
  Columns("A:B").EntireColumn.AutoFit


End Sub

0 hits

【24228】ファイル一覧作成 あいんすと 05/4/16(土) 10:55 質問
【24229】Re:ファイル一覧作成 IROC 05/4/16(土) 11:35 回答
【24230】Re:ファイル一覧作成 Hirofumi 05/4/16(土) 12:18 回答
【24231】Re:ファイル一覧作成 Hirofumi 05/4/16(土) 12:20 回答
【24248】Re:ファイル一覧作成 Hirofumi 05/4/17(日) 9:06 回答
【24249】Re:ファイル一覧作成 あいんすと 05/4/17(日) 11:48 お礼

57247 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free