| |
ﾌｫﾙﾀﾞ内のファイル一覧をするプロシージャです。
動作を確認してみてください、
焼く使われるパターンですので余分な変数もありますが、、、、
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
|
|
keisuke
- 10/10/25(月) 20:20 -
