[[20040611124306]] 『フォルダ内のファイル一覧を表示するマクロ』(しげちゃん) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『フォルダ内のファイル一覧を表示するマクロ』(しげちゃん)

フォルダー内のファイル一覧を表示する時
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)


INAさん、ありがとうございました。今週中にデータ処理をするマクロをつくると
宣言してましたので、本当に助かりました。ありがとうございました。

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.