home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / longfile / fileopen.bas < prev    next >
Encoding:
BASIC Source File  |  1996-08-12  |  1.2 KB  |  62 lines
  1. Option Explicit
  2.  
  3. Sub OpenFile ()
  4.  
  5.    ' always open a short filename as that's what VB3 can handle
  6.    ' with it's file open functions
  7.  
  8.     Dim fn As Integer
  9.     
  10.     On Error Resume Next
  11.  
  12.     ' open the selected file
  13.     fn = FreeFile
  14.     Open gShortFilename For Input As fn
  15.     If Err Then
  16.     MsgBox "Can't open file: " & gShortFilename, 48, App.Title
  17.     Exit Sub
  18.     End If
  19.  
  20.     ' change mousepointer to an hourglass
  21.     screen.MousePointer = 11
  22.     
  23.     ' change form's caption and display new text
  24.     If gIn16BitSystem = True Then
  25.       Form1.Caption = UCase$(gShortFilename)
  26.     Else
  27.       Form1.Caption = UCase$(gLongFilename)
  28.     End If
  29.     Form1.Text1.Text = Input$(LOF(fn), fn)
  30.     Close fn
  31.  
  32.     ' reset mouse pointer
  33.     screen.MousePointer = 0
  34.  
  35. End Sub
  36.  
  37. Sub SaveFileAs ()
  38.  
  39.    Dim Contents As String
  40.    Dim fn As Integer
  41.    
  42.    ' open the file
  43.    fn = FreeFile
  44.    Open gShortFilename For Output As fn
  45.    
  46.    ' put contents of the text box into a variable
  47.    Contents = Form1.Text1.Text
  48.    
  49.    ' display hourglass
  50.    screen.MousePointer = 11
  51.    
  52.    ' write variable contents to saved file
  53.    Print #fn, Contents
  54.    Close #fn
  55.    
  56.    ' reset the mousepointer
  57.    screen.MousePointer = 0
  58.  
  59.  
  60. End Sub
  61.  
  62.