フォルダAにテキストファイルを10個作成

' ----------------------------------------------------------------
'フォルダAにテキストファイルを10こ作成
'ファイル名はランダムな英数字10文字とする
' ----------------------------------------------------------------

Sub prcファイル作成()
    ' 機能概要: 10個のテキストファイルを作成する
    ' 留意点: ファイルはThisWorkbook.Path & "\フォルダA\"に保存される

    Dim objFSO As Object  ' FileSystemObject
    Dim strPath As String  ' 保存先のパスを格納する
    Dim intCounter As Integer  ' ループカウンタ
    Dim strFileName As String  ' ファイル名を格納する

    ' FileSystemObjectを初期化
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    ' 保存先のパスを設定
    strPath = ThisWorkbook.Path & "\フォルダA\"

    ' 10個のファイルを作成
    For intCounter = 1 To 10
        ' ランダムな10文字のファイル名を生成
        strFileName = fncStr生成ランダムファイル名()

        ' ファイルを作成
        objFSO.CreateTextFile strPath & strFileName, True
    Next intCounter

    ' FileSystemObjectを解放
    Set objFSO = Nothing

    MsgBox "処理終了"

End Sub

コメント