OPENDIALOG ET SAVEDIALOG VIA UN CREATEOBJECT

cs_DARKSIDIOUS
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Membre
Dernière intervention
4 mars 2013
- 30 déc. 2004 à 14:36
ld40
Messages postés
336
Date d'inscription
jeudi 30 janvier 2003
Statut
Membre
Dernière intervention
22 février 2019
- 3 janv. 2005 à 10:24
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/28508-opendialog-et-savedialog-via-un-createobject

ld40
Messages postés
336
Date d'inscription
jeudi 30 janvier 2003
Statut
Membre
Dernière intervention
22 février 2019
1
3 janv. 2005 à 10:24
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
1
3 janv. 2005 à 10:13
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

30 déc. 2004 à 18:23
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
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
30 déc. 2004 à 15:20
interessant pour utiliser dans des Vbs
cs_DARKSIDIOUS
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Membre
Dernière intervention
4 mars 2013
131
30 déc. 2004 à 14:36
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