suppression de raccourci

Question

voici mon code:
Private Function SupFichier(ByVal FilePath As String) As Boolean


    Dim typFindFileData As CE_FIND_DATA
    Dim lngFileHandle As Long
    Dim file As Long
    Dim Filename As String
    
    'test si le fichier existe
    lngFileHandle = CeFindFirstFile(FilePath, typFindFileData)




    If lngFileHandle = INVALID_HANDLE Then
        mes = MsgBox("Echec suppression du fichier : le lien " & FilePath & " n'existe pas, voulez-vous continuer?", vbYesNo)
            Select Case mes
                Case 7
                    CeFindClose lngFileHandle
                    SupFichier = False
                    Texi = True
                    Exit Function
                Case 6
            End Select
    End If


    CeFindClose lngFileHandle


    'suppression du fichier
    file = CeDeleteFile(FilePath)
    
    If file = INVALID_HANDLE Then
        MsgBox "Echec : suppression du lien " & FilePath
        SupFichier = False
     Else: SupFichier = True
    End If
    
    CeCloseHandle file
    
End Function

ce code fonctionne parfaitement pour windows pocket pc 2003. le pb est qu il ne fonctionne pas du tout avec windows mobile 5.0 car les raccourcis system sont protégé(word,excel...).si quelqun sait comment resoudre le pb merci d'avance.

cs_Stephane33 · Answer

Car ces raccourcis sont ceux fournis par la Rom, il faudrait d'abord en créer de nouveaux remplaçant ceux-ci pour pouvoir les supprimer.
Par contre je n'ai plus la manip de remplacement sous la main et elle fonctionnait sous 2003 SE. je creuse....

Suppression de raccourci

1 réponse

Votre réponse

Discussions similaires