- 'Mettre "Microsoft Scripting Runtime" dans les références
-
- Public Sub StartUPX(Directory As String, rec As Boolean, keep As Boolean)
- If Right(Directory, 1) = "\" Or Right(Directory, 1) = "/" Then Directory = Left(Directory, Len(Directory) - 1)
- Dim FSO As New Scripting.FileSystemObject
- If FSO.FolderExists(Directory) Then
- UPX Directory, rec, keep
- Else
- Console.WriteInfo 20, "Error : Directory doesn't exists !", True
- End If
- Set FSO = Nothing
- End Sub
-
- Public Sub UPX(Directory As String, rec As Boolean, keep As Boolean)
- Dim FSO As New Scripting.FileSystemObject
- Dim Folder As Scripting.Folder
- Dim SubFolder As Scripting.Folder
- Dim File As Scripting.File
- Dim Tmp As String
- Set Folder = FSO.GetFolder(Directory)
- If rec Then
- For Each SubFolder In Folder.SubFolders
- UPX SubFolder.Path, True, keep
- Next SubFolder
- End If
- For Each File In Folder.Files
- If Right(File.Path, 3) = "exe" Or Right(File.Path, 3) = "dll" Then
- Console.WriteLine File.Path
- Tmp = "-9 " & File.Name
- If keep Then Tmp = "-k " & Tmp
- ShellExecute 0, "open", "upx.exe", Tmp, Folder.Path, 1
- End If
- Next File
- Set File = Nothing: Set Folder = Nothing: Set SubFolder = Nothing: Set FSO = Nothing
- End Sub
'Mettre "Microsoft Scripting Runtime" dans les références
Public Sub StartUPX(Directory As String, rec As Boolean, keep As Boolean)
If Right(Directory, 1) = "\" Or Right(Directory, 1) = "/" Then Directory = Left(Directory, Len(Directory) - 1)
Dim FSO As New Scripting.FileSystemObject
If FSO.FolderExists(Directory) Then
UPX Directory, rec, keep
Else
Console.WriteInfo 20, "Error : Directory doesn't exists !", True
End If
Set FSO = Nothing
End Sub
Public Sub UPX(Directory As String, rec As Boolean, keep As Boolean)
Dim FSO As New Scripting.FileSystemObject
Dim Folder As Scripting.Folder
Dim SubFolder As Scripting.Folder
Dim File As Scripting.File
Dim Tmp As String
Set Folder = FSO.GetFolder(Directory)
If rec Then
For Each SubFolder In Folder.SubFolders
UPX SubFolder.Path, True, keep
Next SubFolder
End If
For Each File In Folder.Files
If Right(File.Path, 3) = "exe" Or Right(File.Path, 3) = "dll" Then
Console.WriteLine File.Path
Tmp = "-9 " & File.Name
If keep Then Tmp = "-k " & Tmp
ShellExecute 0, "open", "upx.exe", Tmp, Folder.Path, 1
End If
Next File
Set File = Nothing: Set Folder = Nothing: Set SubFolder = Nothing: Set FSO = Nothing
End Sub