Excel VBA質問箱 IV

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

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


25 / 75376 ←次へ | 前へ→

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

引用なし
パスワード
   サーバー上にある、フォルダ内のファイル名を一括で出したいです。

Sub Call_GetFileList()

  GetFileList03 "C:\Program Files"
  
End Sub

Sub GetFileList03(Search_Path)
Dim objFs As Object, objFiles As Object, objFolders As Object
Dim File_Path As String, File_Name As String
Dim i As Long, arrData
'処理が遅くなるのでプログラム実行中の画面描画を停止する
Application.ScreenUpdating = False
Set objFs = CreateObject("Scripting.FileSystemObject")
  'パスの取得
  For Each objFolders In objFs.GetFolder(Search_Path).SubFolders
    'サブフォルダまで検索するために再帰実行
    GetFileList03 objFolders.Path
  Next
  
  'ファイル名の取得
  For Each objFiles In objFs.GetFolder(Search_Path).Files
    '\マークを区切り文字として各文字列を配列に代入
    arrData = Split(objFiles.Path, "\")
    
    'セルに配列の各値を書き込む
    For i = 0 To UBound(arrData)
      ActiveCell.Offset(0, i).Value = arrData(i)
    Next i
    
    ActiveCell.Offset(1, 0).Select   
  Next
  
End Sub


ところが、これだとただ文字を羅列するだけで、少々見づらいです。
なので、フォルダごとに上手く結合とか罫線をつけて見やすいレイアウトに出来ないものでしょうか?すいません、上手く表現が出来なくて。。

50 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]

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