Create a bunch of random TMP Files

   ' This script creates a whole load of TMP files in a directory.  The directory and the number of file to create, is achieved via a prompt.

Set oFSO = CreateObject("Scripting.FileSystemObject")
sPath = InputBox("Enter the Path to where the Temp Files should be created, i.e. C:\Temp:", "Temp File Location", "C:\Temp")
If sPath = "" Then
 MSGBOX "InValid Path"
 MSGBOX "Exiting Script..."
 WScript.Quit
 Else
 For i = 1 to InputBox("Enter the Number of Temp Files to Create:", "Number of Temp Files", "1")
  sFileName = oFSO.GetTempName
  sFullName = oFSO.BuildPath(sPath, sFileName)
  Set oFile = oFSO.CreateTextFile(sFullName)
  oFile.Close
 Next
MSGBOX i-1 & " File(s) created in: " & sPath

End If

Author	Message Share Topic Printable Version Delicious Digg Facebook Furl Google MySpace Newsvine reddit StumbleUpon Translate Twitter Windows Live Yahoo Bookmarks Topic Search Topic Options Post Reply Create New Topic
BK Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 23-February-2005 Location: United Kingdom Online Status: Offline Posts: 26	Post Options Post Reply Quote BK Report Post Quote Reply Topic: Create a bunch of random TMP Files Posted: 17-January-2008 at 10:58
	' This script creates a whole load of TMP files in a directory. The directory and the number of file to create, is achieved via a prompt. Set oFSO = CreateObject("Scripting.FileSystemObject") sPath = InputBox("Enter the Path to where the Temp Files should be created, i.e. C:\Temp:", "Temp File Location", "C:\Temp") If sPath = "" Then MSGBOX "InValid Path" MSGBOX "Exiting Script..." WScript.Quit Else For i = 1 to InputBox("Enter the Number of Temp Files to Create:", "Number of Temp Files", "1") sFileName = oFSO.GetTempName sFullName = oFSO.BuildPath(sPath, sFileName) Set oFile = oFSO.CreateTextFile(sFullName) oFile.Close Next MSGBOX i-1 & " File(s) created in: " & sPath End If