SourceFolder = "C:\Temp2\" DestinationFolder = "C:\" Set WshShell = WScript.CreateObject("Wscript.Shell") vProgData = WshShell.ExpandEnvironmentStrings("%systemdrive%") Set objShell = CreateObject("Shell.Application") Set objDictionary = CreateObject("Scripting.Dictionary") Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFl = oFSO.GetFolder(SourceFolder) Set Files = oFL.Files Filecount = 0 For Each File In Files Filecount = Filecount + 1 objDictionary.Add Filecount, File.Name Next Randomize For i=1 To objDictionary.Count objNbr = Int(objDictionary.Count * Rnd + 1) Next RandomFile = objDictionary.Item(objNbr) oFSO.CopyFile SourceFolder & RandomFile,DestinationFolder & "user.bmp",True MsgBox "File " & Randomfile & " copied to " & DestinationFolder & "user.bmp"