指定フォルダ内にテキストファイルをｎ個作成

' ----------------------------------------------------------------
' 機能概要: 指定したフォルダ内にテキストファイルを10個作成する
' ----------------------------------------------------------------
Sub PrcCreateTextFilesInFolder()
    Dim strFolderPath As String          ' テキストファイルを作成するフォルダパス
    Dim objFSO As FileSystemObject       ' ファイルシステムオブジェクト
    Dim objTextFile As TextStream        ' テキストファイルオブジェクト
    Dim intCounter As Integer            ' ループカウンタ
    Dim strFileName As String            ' ファイル名
    
    ' テキストファイルを作成するフォルダパスを設定
    strFolderPath = CurrentProject.Path & "\テストフォルダA\"
    
    ' FileSystemObjectのインスタンスを作成
    Set objFSO = New FileSystemObject
    
    ' n個のテキストファイルを作成
    For intCounter = 1 To 3 ’例：今回は3個で指定しています
        ' ファイル名を設定
        strFileName = "File" & CStr(intCounter) & ".txt"
        
        ' テキストファイルを作成
        Set objTextFile = objFSO.CreateTextFile(strFolderPath & strFileName, True)
        
    Next intCounter
    
    ' オブジェクトを解放
    Set objTextFile = Nothing
    Set objFSO = Nothing
End Sub

※注意点
・このコードは新しいファイルを作成します。既存のファイルがある場合は上書きされますので、注意してください。
・フォルダパス（strFolderPath）は適宜変更してください。
※記述上のポイント
「Microsoft Scripting Runtime」の参照設定を追加する必要があります。