Opendialog et savedialog via un createobject

Soyez le premier à donner votre avis sur cette source.

Snippet vu 14 994 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

Messages postés
336
Date d'inscription
jeudi 30 janvier 2003
Statut
Membre
Dernière intervention
22 février 2019
1
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>
Messages postés
336
Date d'inscription
jeudi 30 janvier 2003
Statut
Membre
Dernière intervention
22 février 2019
1
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>
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 !!

-----------------------
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
62
interessant pour utiliser dans des Vbs
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
100
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.