[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『フォルダ内のファイル一覧を表示するマクロ』(しげちゃん)
フォルダー内のファイル一覧を表示する時
InputBoxを複数使用して入力した名前を使用したい場合どのようにすればよいので
しょうか?自分で作成してみましたが、うまくできません
よろしくお願いいたします。
Sub ファイル()
Dim myFSO As New FileSystemObject Dim myFolder As Folder Dim myFiles As Files Dim myFile As File Dim i As Integer Dim s1 As String Dim s2 As String s1 = InputBox("○○")←ここでフォルダ名入力 s2 = InputBox("△△")←ここでフォルダ名入力 Set myFolder = myFSO.GetFolder("D:\住所録¥地域¥○○¥△△¥データ") Set myFiles = myFolder.Files For Each myFile In myFiles i = i + 1 Cells(i + 5, 1).Value = myFile.Name Cells(i + 5, 2).Value = myFile.DateCreated Cells(i + 5, 3).Value = myFile.Size
Next End Sub
ちょっと仕様は違いますが、ご参考までに・・ (WSH使用)
Sub Sample() Dim myObj As Object Dim myFileName As String Dim myDir As String
Set myObj = CreateObject("Shell.Application"). _ BrowseForFolder(0, "フォルダを選択してください", 0)
If myObj Is Nothing Then Exit Sub
myDir = myObj.Items.Item.Path & "\"
myFileName = Dir(myDir & "*", vbHidden + vbSystem)
Do Cells(Rows.Count, 2).End(xlUp).Offset(1).Value = myFileName Cells(Rows.Count, 1).End(xlUp).Offset(1).Value = myDir myFileName = Dir() Loop Until myFileName = vbNullString
Range("A1").Value = "フォルダ名" Range("B1").Value = "ファイル名" Columns("A:B").AutoFit
End Sub
(INA)
>s1 = InputBox("○○")←ここでフォルダ名入力 >s2 = InputBox("△△")←ここでフォルダ名入力 >Set myFolder = myFSO.GetFolder("D:\住所録¥地域¥○○¥△△¥データ") ↓
s1 = InputBox("○○") s2 = InputBox("△△") Set myFolder = myFSO.GetFolder("D:\住所録\地域\" & s1 & "\" & s2 & "\データ")
かな?
(INA)
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.