' tempfile.vb

Imports System
Imports System.IO

Public Class TempFile
	Shared Sub Main()
		Dim names(5) As String
		Dim i As Integer

		For i = 0 To 4
			Dim name As String = Path.GetTempFileName()
			Console.WriteLine(name)
			names(i) = name
		Next
		' 出力例：
		' C:\DOCUME~1\taka-e\LOCALS~1\Temp\tmp688.tmp
		' C:\DOCUME~1\taka-e\LOCALS~1\Temp\tmp689.tmp
		' C:\DOCUME~1\taka-e\LOCALS~1\Temp\tmp68A.tmp
		' C:\DOCUME~1\taka-e\LOCALS~1\Temp\tmp68B.tmp
		' C:\DOCUME~1\taka-e\LOCALS~1\Temp\tmp68C.tmp

		For i = 0 To 4
			File.Delete(names(i))
		Next
	End Sub
End Class

' コンパイル方法：vbc tempfile.vb