Thierry's Official Weblog

VBSCRIPT - Dialog Box

Ouvrir un Fichier avec DialogBox :
 
Set objDialog = CreateObject("UserAccounts.CommonDialog")    
objDialog.Filter = "VBScript Scripts|*.vbs|All Files|*.*"
objDialog.FilterIndex = 1
objDialog.InitialDir = "C:Scripts"
intResult = objDialog.ShowOpen
If intResult = 0 Then
Wscript.Quit Else
Wscript.Echo objDialog.FileName
End If
Save un fichier avec DialogBox :
Set objDialog = CreateObject("SAFRCFileDlg.FileSave")    
objDialog.FileName = "C:ScriptsScript1.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


21/10/2008
0 Poster un commentaire

A découvrir aussi


Inscrivez-vous au blog

Soyez prévenu par email des prochaines mises à jour

Rejoignez les 2 autres membres