【VBA】ランダムな名前の一時ファイルを作成(GetTempName)

FileSystemObjectのGetTempNameメソッドについてです。

GetTempNameメソッド

ランダムに生成された一時ファイルまたはフォルダーの名前を返します。

※ファイル自体は作成されず、一時ファイル(tmpファイル)の名前と拡張子のみを取得できます。

Tempフォルダーにランダムな名前のtmpファイルを作成して文字を書き込む。

Sub test()

Dim tmp As String, tmpFol As String

Dim fso As Object, ts As Object

'FileSystemObjectをセット

Set fso = CreateObject("Scripting.FileSystemObject")

'Tmepフォルダーのフォルダーパス

tmpFol = fso.GetSpecialFolder(TemporaryFolder)

'ランダムなtmpファイルの名前と拡張子のみ取得

tmp = fso.GetTempName

'Tmepフォルダーにランダムなtmpファイルを新規作成

Set ts = fso.CreateTextFile(tmpFol & "\" & tmp)

ts.Write ("一時ファイル")

ts.Close

End Sub