| 種別 | ファイル |
|---|---|
| 説明 | 指定フォルダ内のファイルパスやフォルダパスを取得します。 |
| 構文 | FileDir(PathName[, Attr]) |
| 引数 | PathName：「*.*」などのワイルドカード方式で、ファイルパスまたはフォルダパスを表す文字列式を指定します。 Attr ：16=フォルダのみを返します。 32=サブフォルダの中を含めた全ファイルパスを返します。 |
| 戻り値 | PathNameを指定した時は、取得したファイルやフォルダの総数を返します。 PathNameを指定しない時は、ファイルパスやフォルダパスを返します。 |
| 使用例 | Dim sFile,sDir,i,sExt,sSrc,sDest,cnt sDir = "C:\temp\" '取得するフォルダを指定 cnt = FileDir(sDir & "*.xdw") 'xdwファイルのみを取得、全ファイルなら「*.*」。戻り値はファイル数 For i=1 to cnt 'Forループで、必要な回数を回してください。 sFile = FileDir() 'ファイルパスの取得 sExt = FileInfo(sFile, 3) '拡張子の取得 sSrc = sFile '変更元ファイル名 sDest = sDir & Format(i, "0000") & "." & sExt'変更先ファイル名 FileRename(sSrc, sDest)'ファイル名を変更する Next i '32なら、サブフォルダの中を含めた全ファイルパスを返します。 cnt = FileDir(sDir & "*.xdw", 32) |
| 実例 | |
| 備考 | ※ 2020/04/20 戻り値をファイル名から、ファイルパスに変更しました。 関連する関数（CopyFolder、CreateFolder、FolderExists、 CommonDialog、DeleteFolder、FileCopy、FileDelete、FileRename、 FileNumbering、FileExists、FileInfo、FileDir、FileLock） |