[一時ファイル名を作成する]
TEMP フォルダの下に一時ファイルを作成します。
【ソースコード】
[tips0065.vbs]
Option Explicit
On Error Resume Next
Dim objFSO
Dim strTempFolder
Dim strTempFile
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
If Err.Number = 0 Then
strTempFolder = objFSO.GetSpecialFolder(2)
strTempFile = objFSO.GetTempName()
WScript.Echo "一時ファイル名: " & strTempFolder & "\" & strTempFile
Else
WScript.Echo "エラー: " & Err.Description
End If
Set objFSO = Nothing
【実行結果】
C:\> cscript //NoLogo tips0065.vbs
一時ファイル名: C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\radD4E39.tmp