VB6: ShellExecute un fichier EXE dans AppData

Question

je les sous:

Public Sub ShellApp(URL As String) 

     Dim vResult As Long 
     vResult = ShellExecute(0, "open", URL, vbNullString, vbNullString, vbMinimizedFocus) 

    End If 
End Sub 

C'est sur une couche qui ne peut pas être changé en raison de plusieurs fonctionnalités nécessaires sur ce sous. Maintenant, sur notre sous-main Main() par exemple, nous vérifions une liste des plugins ajoutés dans un fichier texte à côté de l'EXE, et appelons la boucle Sub in pour le chemin des plugins pour les exécuter. Donc, si j'ai 3 plug-ins comme ci-dessous dans le fichier texte:

C: \ App1.EXE

C: \ App2.EXE

C: \ Users \ AhmadMusa \ AppData \ Roaming \ App3. exe

Les deux premières applications fonctionneront bien sur tous les PC (chemin statique), mais la troisième application ne fonctionnera sur aucun PC sauf le mien qui n'est pas correct ... Notez que App3 est toujours installé sur AppData sur n'importe quel PC, pour y accéder dynamiquement pour exécuter l'application à partir de n'importe quel PC sans ajustements sur le sous-marin.

Quel sera le chemin placé dans le fichier texte pour la troisième application afin qu'il puisse fonctionner sur tous les PC?

J'ai essayé (AppData \ Roaming \ App3.exe) mais cela ne fonctionne pas ... J'ai trouvé sur un thread (http://www.vbforums.com/showthread.php?529776-RESOLVED-Open-a-folder-in-AppData) que je peux appeler quelque chose comme (shell: AppData \ Roaming \ App3.exe) il a fait ne fonctionne pas pour exécuter le App3.exe, mais si j'appelle (shell: AppData \ Roaming), il ouvrira très bien le dossier Roaming. Mais ne peut pas exécuter le fichier EXE.

Des idées?

Merci.

Answer 1

Je crois qu'il n'y a aucun moyen de résoudre le problème sans modifier la procédure d'origine "ShellApp".

dans le cas où vous changez d'avis, je pense que ce poste peut venir dans l'aide (avec quelques tweekings)

Public Sub ShellApp(URL As String) 

     Dim vResult As Long 
     'vResult = ShellExecute(0, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus) 
     vResult = ShellExecute(0, vbNullString, "cmd.exe", "/k """"" & URL & """""", vbNullString, vbNormalFocus) 

End Sub 

Private Sub Command1_Click() 
    ShellApp "%appdata%\PROGRAME.exe" 

End Sub 

parce que « cmd.exe » et ofcourse scripts de traitement par lots sont capables de dépenser des variables qui sont avec pour cent caractère enfermé « % »

pour fermer la console dès qu'il commence à changer le paramètre «/k » à «/c »,

Answer 2

Vous devez étendre la variable d'environnement (ce qui est ce que le %...% fait):

Debug.Print Environ("APPDATA") ' will print the expanded %appdata% 

Ainsi, dans votre fichier texte que vous devez mettre:

% APPDATA% \ App3.exe

Comment développer le chemin? Vous pouvez faire une boucle sur les variables d'environnement fournies par la fonction VB Environ et faire une chaîne de remplacement par vous-même (la façon VB) ou vous pouvez profiter de la fonction ExpandEnvironmentStrings (la manière de l'API Win32).

Ci-dessous un extrait en utilisant cette seconde option:

Private Declare Function ExpandEnvironmentStrings Lib "kernel32.dll" _ 
       Alias "ExpandEnvironmentStringsA" (_ 
       ByVal lpSrc As String, _ 
       ByVal lpDst As String, _ 
       ByVal nSize As Long) As Long 

Public Function ExpandEnvironString(ByVal URL As String) As String 
    Dim buf As String, bufSize As Long 
    bufSize = ExpandEnvironmentStrings(URL, ByVal 0&, 0&) 
    buf = String(bufSize + 1, vbNullChar) 
    bufSize = ExpandEnvironmentStrings(URL, buf, Len(buf)) 
    ExpandEnvironString = Left$(buf, InStr(1, buf, vbNullChar) - 1) 
End Function 

Avant d'appeler ShellApp(URL As String) vous devez étendre le chemin:

URL = ExpandEnvironString(URL) 

ShellExecute recevront le chemin élargi: C:\Users\AhmadMusa\AppData\Roaming\App3.exe

C'est un changement sans rupture, parce que si votre paramètre par défaut initial sera plus tard changé en un chemin fixe personnalisé, t La fonction ExpandEnvironmentStrings va simplement l'ignorer.

Exemple:

ExpandEnvironString ("C: \ App1.EXE") retournera C: \ App1.EXE

Plus d'infos:

vous pouvez obtenir tous vos variables d'environnement avec la procédure suivante:

Private Sub EnvironmentEntries() 
    Dim Entry As String, i As Long 
    i = 1 
    Do 
     Entry = Environ(i) 
     i = i + 1 
     If Entry = "" Then Exit Do 
     Debug.Print Entry 
    Loop 
End Sub 

... et vérifier quelques informations supplémentaires ici:

Why are there directories called Local, LocalLow, and Roaming under \Users\?

Answer 3

sub test() 
    dim tmp as string 
    tmp = environ("AppData ") & "\calc.exe" 

    call ShellExecute(..., tmp, ...) 
end sub 

remplir les autres arguments (...) la façon dont vous voyez à droite