Excel VBA質問箱 IV

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

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


15 / 75376 ←次へ | 前へ→

【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

37 hits

【81002】サーバー内にあるフォルダとファイル名を出力 Romi 19/7/6(土) 21:02 質問[未読]
【81003】Re:サーバー内にあるフォルダとファイル名... γ 19/7/6(土) 21:49 回答[未読]
【81004】Re:サーバー内にあるフォルダとファイル名... Romi 19/7/7(日) 16:37 発言[未読]
【81012】Re:サーバー内にあるフォルダとファイル名... Romi 19/7/8(月) 21:09 質問[未読]
【81015】Re:サーバー内にあるフォルダとファイル名... γ 19/7/9(火) 7:04 発言[未読]
【81019】Re:サーバー内にあるフォルダとファイル名... Romi 19/7/9(火) 20:59 発言[未読]
【81026】Re:サーバー内にあるフォルダとファイル名... γ 19/7/17(水) 7:08 発言[未読][NEW]

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