Private sub MakeArchive(InputName as string,OutFile as string)
dim Str as String
str=str & app.path & "\System\7Z.exe"
WinExec str & "-a D:\MoiFail.exe D:\MoiFail.7z",0
end sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 97