Vb

Résolu
Bonjour,
j'ai écrit un programme en visual basic mai je voudrai ajouter un bouton qui ferait un lien vers un dossier qui existe deja.
quelqu'un pourrait-il m'aider? depuis le matin je cherche un moyen de le faire en vain. en fait le dossier est placé sur le bureau et je voudrai que le programme y accede lorsqu'on clique sur le bouton. help.....
Configuration: Windows XP
Firefox 2.0.0.14

7 réponses

  1. Après un Résolu, un petit merci aurait été sympa.
                               
    1. Contributeur
      Bonjour, por trouver le chemin de 'Mes documents' c'est un peu compliqué parce que ce n'est qu'un raccourci
      Dans Module1 tu colle le code ci-dessous
      Option Explicit
      '
      Private Const CSIDL_PERSONAL As Long = &H5
      '
      Private Type SHITEMID
          cb As Long
          abID As Byte
      End Type
      '
      Private Type ITEMIDLIST
          mkid As SHITEMID
      End Type
      '
      Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" _
                              (ByVal hwndOwner As Long, ByVal nFolder As Long, _
                               pidl As ITEMIDLIST) As Long
      Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" _
                              (ByVal pidl As Long, ByVal pszPath As String) As Long
      Function GetMyDocumentsFolder() As String
          Dim lRet As Long, IDL As ITEMIDLIST, sPath As String
          lRet = SHGetSpecialFolderLocation(100&, CSIDL_PERSONAL, IDL)
          If lRet = 0 Then
              sPath = String$(512, Chr$(0))
              lRet = SHGetPathFromIDList(ByVal IDL.mkid.cb, ByVal sPath)
              GetMyDocumentsFolder = Left$(sPath, InStr(sPath, Chr$(0)) - 1)
          Else
              GetMyDocumentsFolder = vbNullString
          End If
      End Function

      Sur ta forme tu colle un bouton, tu double clic sur le bouton pour arriver sur l'événement clic du bouton.
      TU EFFACE LES 2 LIGNES QUI SONT DEJA ECRITE.
      Et tu colle ce code dans la feuille
      Private Sub Command1_Click()
      Dim Chemin As String
      Dim Fichier As String
          Chemin = GetMyDocumentsFolder & "\Bureau\"
          Fichier = "LeNomFichier.ext"
          'Le fichier à ouvrir serra donc..
          MsgBox Chemin & Fichier
      End Sub

      A+
      1. Bon code lermite222 plus complexe que le mien mais très bon
        A+
                                   
      2. Contributeur
        @sonycBonjour,
        Oui, le problème c'est que Mes Document n'est qu'un raccourci et qu'en plus le chemin comporte le nom de l'utilisateur qui peu changer en fonction... de l'utilisateur ou du PC sur lequel il se trouve.
      3. @lermite222tu as raison, détection du nom d'utilisateur d'abord.
        Souhaitons qu'il comprenne les APIs que tu lui a donnés
        Je doit quitter pour le moment, je décolle à 6h30
        A+
                                   
    2. Au fait dans le zip, le dossier "ouvrir sauver ficher" comporte les sources
      et le dossier "exe" comporte l'application ( Projet1.exe )       
      A+  
      1. Salut desire
        tu veux un bouton qui ferait un lien vers un dossier qui existe déjà
        si ça peut t'aider, je t'ai fabriquer en vb ce que tu demande
        étudie le code, cela devrait répondre à ta question
        http://www.partage-facile.com/129897-ouvrir_sauver_ficher.zip.html

        Fonction du programme :
        ouverture de n'importe quel fichier situé dans n'importe quel dossier du Disque Dur
        et lecture/écriture dans un rtf.
        Enregistrement du fichier ou de ce qui tu a écrit dans le rtf en deux format .txt, .avs

        deux choses :
        ne fait pas attention à ça
        Script AVS (*.avs)|*.avs
        car à l'origine ce code que je te donne aujourd'hui vient d'un programme de frameserver que j'ai créer en 2001.

        ne fait pas attention à ça
        CRC32 Check/Append
        c'est le début de mes options de sécurités pour ne pas que l'on me crack mes programmes.

        enfin étudie le composant CommonDialog1, c'est la base pour les accès au dossier et fichier.

        A+
                                   
        1. Contributeur
          Hello
          de quel genre de lien est-ce que tu parles... c'est pour quoi faire exactement ?
          1. chui un debutant ds la programmation et jve faire mon menu personelle et j pa reussi aidez moi svp
            1. bonjour
              bon premirement je ne sait pas de quoi tu veux parler
              si tu veux que qlq t'aide envoi ton programme et bon chance