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

Ouvrir un Fichier avec DialogBox :

Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "VBScript Scripts*.vbsAll Files*.*"
objDialog.FilterIndex = 1
objDialog.InitialDir = "C:Scripts"
intResult = objDialog.ShowOpen
If intResult = 0 Then
Wscript.Quit
Else
Wscript.Echo
objDialog.FileName
End If

Windows - Menu Contex - Defragmenter un HD :

Windows - Menu Contex - Defragmenter un HD :

Un p'tit truc bien pratique pour défragmenter vos DDs ou autres est de faire un C/C du texte ci-dessous dans 'BlocNote' puis créez et 'Enregistrez le sous' "context_defrag.inf"
Puis cliquez droit sur le document que vous venez de créer et choississez 'Install' pour avoir Defrag en Menu Contextuel (click droit sur l'objet à défragmenter).


; context_defrag.INF
; Adds Defrag to the right click context menu in Windows XP
[version]
signature="$CHICAGO$"
[DefaultInstall]
AddReg=AddMe
[AddMe]
HKCR,"DriveShellDefragcommand",,,"DEFRAG.EXE %1"

Si vous voulez voir les infos ajouter -v après %1