TROUVER LE PROGRAMME ASSOCIÉ À UN TYPE FICHIER

#If Win32 Then
    Private Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long
#Else
    Private Declare Function FindExecutable Lib "shell.dll" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Integer
#End If

'***************FONCTION DE RECHERCHE
Private Function Rechexe(Monfichier As String) As String
    Dim ChaineRet As String
    Dim ChaineExe As String
    'Dcl en variant Int ou Long
    Dim ret As Variant

    ChaineRet = Space(100)
    'Recherche de l'exe en fonction du fichier associé
    ret = FindExecutable(Monfichier, CurDir(), ChaineRet)
    If ret <= 32 Then
        ChaineExe = ""
    Else
        ChaineExe = Mid$(ChaineRet, 1, InStr(1, ChaineRet, Chr(0), 1) - 1)
    End If
    Form1.Print ChaineExe
    Rechexe = ChaineExe
End Function
'***********************************

'***************CHERCHER ASSOCIATION
'Essai de la fonction et lancement
Sub CmdOpen_Click()

Dim ret As Variant
Dim nomexe As String, nomfich As String

nomfich = "c:\1.pdf" 'Lien vers le fichier
nomexe = Rechexe(nomfich)
If nomexe <> "" Then
MsgBox "association trouvée"
Else
MsgBox "Pas d'association définie"
End If
End Sub
'***********************************
 

• EXTRAIRE LE NOM DU FICHIER D'UN CHEMIN EN 1 COMMANDE

• TITLE BAR, AJOUTEZ VOTRE BOUTTON DANS LA BARE DE TITRE DES FENETRE
• VERROUILLAGE DU LECTEUR CD - EJECTION SUR MOT DE PASSE
• CHANGEDESKTOP: CHANGEMENT DE L'APPARENCE DE LA LISTVIEW DU BUREAU WINDOWS
• SERVEUR OPC
• CLASSES TIMER (SANS MODULE)