ld40
Messages postés336Date d'inscriptionjeudi 30 janvier 2003StatutMembreDernière intervention22 février 20191 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
ld40
Messages postés336Date d'inscriptionjeudi 30 janvier 2003StatutMembreDernière intervention22 février 20191 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>
3 janv. 2005 à 10:24
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>
3 janv. 2005 à 10:13
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>
30 déc. 2004 à 18:23
Sinon grand merci !!!! ça m'aide beaucoup !!
-----------------------
30 déc. 2004 à 15:20
30 déc. 2004 à 14:36
Mais c'est intéressant pour ceux qui veulent apprendre à se servir du CreateObject.
Note : un petit zip aurait été le bienvenue...
DarK Sidious