Opendialog et savedialog via un createobject

Soyez le premier à donner votre avis sur cette source.

Snippet vu 14 921 fois - Téléchargée 32 fois

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

Ajouter un commentaire

Commentaires

ld40
Messages postés
336
Date d'inscription
jeudi 30 janvier 2003
Statut
Membre
Dernière intervention
22 février 2019
-
bizarre,
cet exemple trouvé sur un autre site fonctionne très bien sur mon poste. J'ai sans doute m...dé quelque part!

désolé et merci.

<html>

<head>
<script type="text/vbscript">
sub mySub()
Set objDialog = CreateObject("SAFRCFileDlg.FileSave")
objDialog.FileName = "C:\Scripts\Script1.vbs"
objDialog.FileType = "VBScript Script"
intReturn = objDialog.OpenFileSaveDlg

If intReturn Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile(objDialog.FileName)
objFile.WriteLine Date
objFile.Close
Else
Wscript.Quit
End If

end sub
</script>
</head>


<script type="text/vbscript">
call mySub()
</script>

</html>
ld40
Messages postés
336
Date d'inscription
jeudi 30 janvier 2003
Statut
Membre
Dernière intervention
22 février 2019
-
bonjour,

je n'arrive pas à faire fonctionner le save dialog (uniquement le opendialog), ni en vba sous Xp , ni en vbs

voici mon code vbs pour le opendialog
<html>
<head>
<script type="text/vbscript">
sub mySub()
Dim OpenDialog
dim ret
dim Filename
Set OpenDialog = CreateObject("SAFRCFileDlg.FileOpen")
ret = OpenDialog.OpenFileOpenDlg()
If ret Then
MsgBox openDialog.FileName
end if
Set OpenDialog = Nothing
end sub
</script>
</head>


<script type="text/vbscript">
call mySub()
</script>

</html>
fg85
Messages postés
370
Date d'inscription
dimanche 28 mars 2004
Statut
Membre
Dernière intervention
13 avril 2007
-
Tester sous XP PRO (ben j'ai rien d'otre alors,sof un petit linux qui traine dans le coin, mé ça marche pô, logique , mdr)

Sinon grand merci !!!! ça m'aide beaucoup !!

-----------------------
Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57 -
interessant pour utiliser dans des Vbs
cs_DARKSIDIOUS
Messages postés
15815
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
83 -
Il vaux mieux utiliser les API standard plutôt que les CreateObject. Parce que c'est plus rapide car pas besoin de créer d'instance d'objets.

Mais c'est intéressant pour ceux qui veulent apprendre à se servir du CreateObject.

Note : un petit zip aurait été le bienvenue...

DarK Sidious

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.