Choisir un chemin de sauvegarde depuis un formulaire

Question

Bonjour, bonjour,

Je voudrais savoir quel code faut-il mettre dans le code evenementiel d'un bouon sur_click() pour ouvrir une boite de dialogue permettant de séléctionner un chemin dans le ou les disques durs pour effectuer une sauvegarde.

Merci d'avance...

Ciao et a bientot

Hasen

alias666 · Answer

Tu place un Commondialog dans ta form et apres tu adapte
ton code dessus:

si ta commondialog s'appel rec

Private Sub save_Click()
'Ouverture de la boîte de dialogue'
rec.ShowSave
end sub

je pense ke c ca

4L!@$

alias666 · Answer

Tu vois moi j'ai déclare ca dans un module

Module:

Function Existe(Fichier As String) As Boolean
          If Dir(Fichier) = "" Then
                    Existe = False
          Else
                    Existe = True
          End If
End Function

Sub CreationFichier(ByVal nomfichier As String, ByVal Contenu As String)
If Existe(nomfichier) = True Then
        Kill nomfichier
End If
Open nomfichier For Output As #1
        Print #1, Contenu
Close #1

End Sub

et ca sur le bouton enregistrer:

Private Sub save_Click()
'Ouverture de la boîte de dialogue'
rec.ShowSave
'Appel de la procédure CréationFichier'
Call CreationFichier(rec.FileName, Trim(fen.Text))
'Définition de l'espace nul'
fen.Text = vbNullString
End Sub

a toi de voir si ca peut t'aider...:D

cs_CanisLupus · Answer

Salut,
Moi je fais autrement, g une form avec une drivelistbox nommée drive1, une dirlistbox nommée dir1, une filelistbox nommée file1, un bouton nommé cmd_annuler et un autre nommé cmd_OK avec le code suivant dedans.
NomFichier est défini en public dans le module Main pour pouvoir le récupérer partout.

Dim Idx As Integer

Private Sub cmd_OK_Click()

  If File1.FileName <> "" Then
    If Right$(Dir1.Path, 1) = "" Then
      NomFichier = Dir1.Path + File1.FileName
    Else
      NomFichier = Dir1.Path + "" + File1.FileName
    End If
    Unload Me
  Else
    MsgBox "Vous n'avez pas sélectionné de fichier !", vbExclamation, "ERREUR"
  End If
  
End Sub

Private Sub cmd_Annuler_Click()
  Unload Me
End Sub

Private Sub Dir1_Change()
  File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
  On Error GoTo drv_absent
  Dir1.Path = Drive1.List(Drive1.ListIndex)
  Idx = Drive1.ListIndex
  Exit Sub
drv_absent:
  Drive1.ListIndex = Idx
End Sub

Private Sub File1_DblClick()
  cmd_OK_Click
End Sub

Private Sub Form_Load()
Dim i As Integer
Dim rs As Recordset

  File1.FileName = "*.*"  ' le type de fichier
  Drive1.Drive =  ' le nom du lecteur logique où tu veux sauvegarder
  Dir1.path = ' le chemin prédéfini du rep où tu veux sauvegarder
  Idx = Drive1.ListIndex
End Sub

Il y a peut être mieux mais en tous cas ds ma boîte ça marche.

Cordialement

CanisLupus

cs_CanisLupus · Answer

g relu ta question, le code que g écrit c ds une form à part, ds ton button_click, tu dois mettre nom_de_cette_form.show bien sûr. c comme une boite de dialogue perso.

Cordialement

CanisLupus