All the way to "Save As" dialog [Pyramid shaped code]

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

All the way to "Save As" dialog [Pyramid shaped code]

Logged in as: Guest

arrSession:exec spGetSession 2,16,41651

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> All the way to "Save As" dialog [Pyramid shaped code]
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

All the way to "Save As" dialog [Pyramid shap... - 1/3/2007 7:34:50 AM

Fredledingue

Posts: 370
Score: 0
Joined: 5/9/2005
From:
Status: offline

This snippet attempts to create the first "save as dialod" object available on any computer.
The goal is to return a filepath.
Please add your own ones to it or correct to present code.

Horizontal Pyramid shaped code... if you add the indents!

'---------Check if a "Save As" component is installed-----
On Error Resume Next
Set objDialog = CreateObject("SAFRCFileDlg.FileSave")
If Err.Number <> 0 Then
Err.Clear
Set objDialog = CreateObject("MSComDlg.CommonDialog")
If Err.Number <> 0 Then
Err.Clear
Set objDialog = CreateObject("Jsdlgbox.browser")
 If Err.Number <> 0 Then
 Err.Clear
 Set objDialog = CreateObject("Excel.Application")
  If Err.Number <> 0 Then
  Err.Clear
  MsgBox "None of the ""Save As"" dialog component is installed on this computer." _
   & VbCrlf & "To install the component:" _
   & VbCrlf & "Unzip the content of DlgBox.zip to a folder of your choice and double-click on InstallComponent.vbs." _
   & VbCrlf  _
   & VbCrlf & "This plugin cannot work without this component installed." ,,0+16,Title
  MsgBox "Action canceled",,Title
  Else
  od=4
  End If
 Else
 od=3
 End If
Else
od=2
End If
Else
od=1
End If
On Error GoTo 0
Select Case od
Case 1
With objDialog 
.FileName = ""
.FileType = "html document"
SavedFile = .OpenFileSaveDlg
End With
Case 2
With objDialog 
.DialogTitle="Save Webpage As" 
.Filter="Web page complete|*.html;*.htm|All files|*.*" 
.MaxFileSize = 250
.ShowSave 
SavedFile = .FileName
End With
Case 3
SavedFile = objDialog.savebox
Case 4
SavedFile = objDialog.GetSaveAsFilename()
End Select
'---------check the validity of the file name-------
MsgBox """" & SavedFile & """",,"debug savedfile"    '------debug
If SavedFile = "" Or SavedFile = False Then   '-------add more "Or" if necessary
Wscript.Quit
Else
'---add what you want here
End If

_____________________________

Fred