Opendialog et savedialog via un createobject

Commenter

Contenu du snippet

Ben ca sert a utiliser les fenetre open et save comme commondialog mais via un createobject.

Ps: a tester sur win 9x et Nt car je suis sur xp pro...

Source / Exemple : 


Option Explicit
Dim OpenDialog As Object
Dim SaveDialog As Object
Dim ret%
Dim FileName$

Private Sub Form_Load()
'Creation des Objets
Set OpenDialog = CreateObject("SAFRCFileDlg.FileOpen")
Set SaveDialog = CreateObject("SAFRCFileDlg.FileSave")

End Sub

Private Sub Command1_Click()
'pour tester le bouton open
ret = OpenDialog.OpenFileOpenDlg()
'Si le user a selectioné un fichier et cliqué sur ok
' on affiche le fichier selectionné
If ret <> 0 Then MsgBox OpenDialog.FileName

End Sub

Private Sub Command2_Click()

'pour tester le bouton save
ret = SaveDialog.OpenFileSaveDlg()

'Si le user a selectioné un fichier et cliqué sur ok
' on affiche le fichier selectionné
If ret <> 0 Then MsgBox SaveDialog.FileName

End Sub

Private Sub Form_Unload(Cancel As Integer)
'on release nos object
Set OpenDialog = Nothing
Set SaveDialog = Nothing
End Sub

Conclusion :


dites moi si ca marche sur win 9x etc ...

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (shadowmoy)