15-07-10, 16:00
|
 | Super Moderator Όνομα: Τολης Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2013 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 02-01-2010 Περιοχή: ATHENS-GREECE
Μηνύματα: 180
| |
Δοκιμασε αυτο:
On Error Resume Next
Dim X As Integer
Dim AppName As String
AppName = "test.exe"
X = Shell(AppName, 1)
|