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

≪