/ Snippet Library - View Code

Visual Basic / API / Save as (API)

Snippet details

ID: 147

Viewed: 929

Added: 2002-04-28

Version:

Snippets in this catagory
Show Printable Version

API call for save as..

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: unknown

Snippet By:	unknown
Declarations
Highlight Allnone
Code
Highlight Allsub click() Dim filenum As Integer Dim Ingredients As String Dim lab As String Dim recname As String Dim proc As String Dim ofn As OPENFILENAME Ingredients = TxtIngredients.Text lab = Label1.Caption recname = LblName.Caption proc = TxtProcessTest ofn.lStructSize = Len(ofn) ofn.hwndOwner = FrmResult.hwnd ofn.hInstance = App.hInstance ofn.lpstrFilter = "Document Files (.doc)" + Chr$(0) + _ ".doc" + Chr$(0) + "Text Files (.txt)" + Chr$(0) + _ ".txt" + Chr$(0) + "All Files (.)" + Chr$(0) _ + "." + Chr$(0) ofn.lpstrFile = Space$(254) ofn.nMaxFile = 255 ofn.lpstrFileTitle = Space$(254) ofn.nMaxFileTitle = 255 ofn.lpstrInitialDir = CurDir ofn.lpstrTitle = "Dialog Title" ofn.flags = 0 Dim a a = GetSaveFileName(ofn) If (a) Then MsgBox "File Saved To: " + Trim$(ofn.lpstrFile) 'FileSave Stuff Here ofn.lpstrFile = Left(ofn.lpstrFile, InStr(ofn.lpstrFile, Chr$(0)) - 1) If Right$(LCase$(ofn.lpstrFile), 4) <> ".txt" Then ofn.lpstrFile = ofn.lpstrFile & ".txt" End If Open ofn.lpstrFile For Output As #1 Print #1, lab; Space$(3); recname Print #1, Ingredients; proc FrmResult.SetFocus Close #1 Else MsgBox "Cancel was pressed" End If Close #1 End Sub

No Reviews to show