Tranquilamente se puede hacer un msi con esas propiedades. Ademas, que hace el juguito adelantando windows 8?


Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
' Mr Frog Mod Raul338 - Le cambie la RegExp
Public Function GetFiles(ByVal strText As String) As Collection
Dim cTemp As New Collection
Dim oRegExp As Object
Dim oMatch As Object
Dim oMatches As Object
Set oRegExp = CreateObject("VBScript.RegExp")
With oRegExp
.Pattern = "\s?(\""[\w\s:\\\.]+\""|[\w\s:\\\.]+)\s?"
.Global = True
.IgnoreCase = True
End With
Set oMatches = oRegExp.Execute(strText)
For Each oMatch In oMatches
cTemp.Add oMatch.SubMatches(0)
Next
Set GetFiles = cTemp
End Function
Private Sub Form_Load()
Dim vItem As Variant
Const S As String = "C:\Frog\Proyecto1.exe ""C:\reto 123.exe"" C:\imagen.png"
For Each vItem In GetFiles(S)
MsgBox vItem
Next
End Sub