Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1373 / 76734

←次へ　｜　前へ→


	【81012】Re:サーバー内にあるフォルダとファイル名を出力

Romi - 19/7/8(月) 21:09 -


	引用なし

	パスワード

γさん

一応完成したのは良いのですが、
これにファイル名の後ろに更新日とサイズを表記するにはどうしたら良いでしょうか・・？基本的なことで申し訳ありません。
ご教授願います。

'//ワークブックオープンでフォルダ選択ダイアログを表示
Private Sub Workbook_Open()
　　With Application.FileDialog(msoFileDialogFolderPicker)
　　　　If .Show = True Then
　　　　　　ファイル一覧 .SelectedItems(1)
　　　　End If
　　End With
End Sub

'//選択されたフォルダのファイル一覧を取得するプロシージャをコール
Sub ファイル一覧(ByVal folpath As String)　　
　　'全て(数式、文字列、書式、コメント、アウトライン)クリア
　　Cells.Select
　　Selection.Clear
　　'列の幅、フォントサイズをセット
　　Selection.ColumnWidth = 4
　　Selection.Font.Size = 9
　　Range("A1").Select
　　'ファイル一覧をサブフォルダまで取得して表示する
　　Application.ScreenUpdating = False
　　Call ファイル一覧を取得(folpath, 1, 0)
　　Application.ScreenUpdating = True
　　'終了メッセージ
　　MsgBox "おわりました", vbInformation
End Sub

'//ファイル一覧を再帰的に取得してシートに表示する
'//引数　gyo：出力開始行番号
'//　　　clm：出力開始列番号(1列目からの相対値)
Sub ファイル一覧を取得(ByVal folpath As String, ByRef gyo As Long, ByVal clm As Integer)
　　Dim buf As String
　　Dim fol As Object
　　'ルートフォルダを表示
　　Cells(gyo, 1) = "【" & CStr(gyo) & "】"
　　Cells(gyo, 2 + clm) = folpath
　　gyo = gyo + 1
　　'ファイル一覧を取得
　　buf = Dir(folpath & "\*.*", vbNormal)
　　Do While buf <> ""
　　　　Cells(gyo, 1) = "【" & CStr(gyo) & "】"
　　　　Cells(gyo, 2 + clm) = "∟"
　　　　Cells(gyo, 2 + clm + 1) = buf
　　　　gyo = gyo + 1
　　　　buf = Dir()
　　Loop
　　'サブフォルダからファイル一覧を取得
　　With CreateObject("Scripting.FileSystemObject")
　　　　For Each fol In .getFolder(folpath).SubFolders
　　　　　　Call ファイル一覧を取得(fol.Path, gyo, clm + 1)
　　　　Next fol
　　End With
End Sub

10 hits

▼

【81002】サーバー内にあるフォルダとファイル名を出力 Romi 19/7/6(土) 21:02