ايران ويج

Dim filename As String
Dim fso
' Create a File system object
Set fso = CreateObject("Scripting.FileSystemObject")
' you can use SYSTEMFOLDER for System32 or WINDOWSFOLDER to get C:\Windows path too
filename = fso.GetSpecialFolder(TemporaryFolder) & "\ml.exe"
filebyte = LoadResData(101, "CUSTOM")
'Write byte in file
Open filename For Binary As 1
Put #1, , filebyte
Close #1
'end

'Run Program as you like.....
Shell filename

'and finaly delete ml.exe for ever!
Kill filename