|
フォルダ内のファイル一覧をするプロシージャです。
動作を確認してみてください、
焼く使われるパターンですので余分な変数もありますが、、、、
ThisWorkbook.Path この命令はエクセルある場所のパスを示します。
strPATHNAME = ”**************”に探したいフォルダのパスを入れてください。
ThisWorkbook.Pathで指定可能ですと探すフォルダをいちいち指定しなくても
良かったりするので、エクセルブックを同じフォルダに入れておくと便利です。
Dim myCurDir As String
Dim myFile As String
Dim myTitle As String
Const cnsTITLE = "フォルダ内のファイル名一覧取得"
Const cnsDIR = "\*.*"
Dim xlAPP As Application
Dim strPATHNAME As String
Dim strFILENAME As String
strPATHNAME = ThisWorkbook.Path & "\加工データ"
If Dir(strPATHNAME, vbDirectory) = "" Then
MsgBox "指定のフォルダは存在しません。", vbExclamation, cnsTITLE
Exit Sub
End If
' 先頭のファイル名の取得
strFILENAME = Dir(strPATHNAME & cnsDIR, vbNormal)
Do While strFILENAME <> ""
Debug.Print (strFILENAME)
strFILENAME = Dir()
Loop
|
|