vb Résolu/Fermé

Question

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.....

neo1617 · Answer

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

minou1 · Answer

chui un debutant ds la programmation et jve faire mon menu personelle et j pa reussi aidez moi svp

BloodyAngel · Answer

Hello
de quel genre de lien est-ce que tu parles... c'est pour quoi faire exactement ?

sonyc · Answer

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+

sonyc · Answer

Au fait dans le zip, le dossier "ouvrir sauver ficher" comporte les sources
et le dossier "exe" comporte l'application ( Projet1.exe )       
A+

lermite222 · Answer

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+

sonyc · Answer

Après un Résolu, un petit merci aurait été sympa.

Vb

7 réponses

Discussions similaires

Newsletters