Option Explicit

Private Sub Form_Click()
    Dim strA As String
    Dim intFileNum As Integer
    `Create a small file
    intFileNum = FreeFile
    Open "FILEA" For Output As #intFileNum
    Print #intFileNum, "This is a testDear John, How Do I... "
    Close #intFileNum
    `Rename file
    Name "FILEA" As "FILEB"
    `Copy file
    FileCopy "FILEB", App.Path & "\FILEC.TXT"
    `Read and display resulting file
    Open App.Path & "\FILEC.TXT" For Input As #intFileNum
    Line Input #intFileNum, strA
    Close #intFileNum
    MsgBox strA, vbOKOnly, "Contents of the Renamed and Copied File"
    `Delete files
    Kill "FILEB"
    Kill App.Path & "\FILEC.TXT"
End Sub

strCurDirectory = CurDir
strAppDirectory = App.Path

Option Explicit

Sub RecurseTree(CurrentPath As String)
    Dim intN As Integer, intDirectory As Integer
    Dim strFileName As String, strDirectoryList() As String
    `First list all normal files in this directory 
    strFileName = Dir(CurrentPath)
    Do While strFileName <> ""
        Print #1, CurrentPath & strFileName
        strFileName = Dir
    Loop
    `Next build temporary list of subdirectories
    strFileName = LCase(Dir(CurrentPath, vbDirectory))
    Do While strFileName <> ""
        `Ignore current directory, parent directory, and
        `Windows NT page file
        If strFileName <> "." And strFileName <> ".." And _
            strFileName <> "pagefile.sys" Then
            `Ignore nondirectories

            If GetAttr(CurrentPath & strFileName) _
                And vbDirectory Then
                intDirectory = intDirectory + 1
                ReDim Preserve strDirectoryList(intDirectory)
                strDirectoryList(intDirectory) = CurrentPath _ 
                    & strFileName
            End If
        End If
        strFileName = Dir
        `Process other events
        DoEvents
    Loop
    `Recursively process each directory
    For intN = 1 To intDirectory
        RecurseTree strDirectoryList(intN) & "\"
    Next intN
End Sub

Private Sub Form_Load()
    Dim strStartPath As String
    Me.Show
    Print "WorkingDear John, How Do I... "
        Me.MousePointer = vbHourglass
    strStartPath = "C:\"
    Open "C:\FILETREE.TXT" For Output As #1
    RecurseTree strStartPath
    Close #1
        Me.MousePointer = vbDefault
    Unload Me
End Sub

Option Explicit

Private Type Employee
    FirstName As String * 20
    MiddleInitial As String * 1
    LastName As String * 20
    Age As Byte
    Retired As Boolean
    Street As String * 30
    City As String * 20
    State As String * 2
    Comments As String * 200
End Type

Private Sub cmdPut_Click()
    Dim Emp As Employee
    Dim intN
    Open App.Path & "\EMPLOYEE.TXT" For Binary As #1
    For intN = 1 To 10
        Emp.Age = 14
        Emp.City = "Redmond"
        Emp.Comments = "He is a smart guy."
        Emp.FirstName = "Willy"
        Emp.LastName = "Doors"
        Emp.MiddleInitial = "G"
        Emp.Retired = False
        Emp.State = "WA"
        Emp.Street = "One Macrohard Way"
        Put #1, , Emp
    Next intN
    Close #1
End Sub

Private Sub cmdGet_Click()
    Dim Emp(1 To 10) As Employee
    Dim intN As Integer
    Open App.Path & "\EMPLOYEE.TXT" For Binary As #1
    For intN = 1 To 10
        Get #1, , Emp(intN)
        Print Emp(intN).FirstName
    Next intN
    Close #1
End Sub

Option Explicit

Private Sub Form_Click()
    Dim strA As String * 1
    Open App.Path & "\TEST.TXT" For Binary As #1
    Get #1, , strA
    Print strA
    Close #1
End Sub
Private Sub Text1_Click()
    Dim strB As String
    Open App.Path & "\TEST.TXT" For Binary As #1
    strB = Space(LOF(1))
    Get #1, , strB
    Text1.Text = strB
    Close #1
End Sub

Sub WriteTempFile()
    Dim fsysTemp As New FileSystemObject
    Dim tstrTemp As TextStream
    Set tstrTemp = fsysTemp.CreateTextFile(fsysTemp.GetTempName)
    tstrTemp.Write "This is some temp text."
End Sub

`Create a new FileSystemObject object
Dim mfsysObject As New Scripting.FileSystemObject

Private Sub cmdCheckDrives_Click()
    `Declare a Drive object
    Dim drvItem As Drive
    `Add headers to text box
    txtData = "Drive" & vbTab & "Free space" & vbCrLf
    `Change mouse pointer. This can take a while
    MousePointer = vbHourglass
    `Check each drive
    For Each drvItem In mfsysObject.Drives
        `Update text box
        DoEvents
        `If drive is ready, you can get free space
        If drvItem.IsReady Then
            txtData = txtData & _
                drvItem.DriveLetter & vbTab & _
                drvItem.FreeSpace & vbCrLf
        `Otherwise, display "Drive not ready."
        Else
            txtData = txtData & _
                drvItem.DriveLetter & vbTab & _
                "Not Ready." & vbCrLf
        End If
    Next drvItem
    `Go back to the normal mouse pointer
    MousePointer = vbDefault
End Sub

`Speed things up!
If drvItem.DriveType = Fixed Then
    `Check free space. . .
End If

Sub cmdListFolders_Click()
    Dim fldObject As Folder
    `Display folder information
    txtData = "Windows folder: " & _
        mfsysObject.GetSpecialFolder(WindowsFolder) & vbCrLf & _
        "System folder: " & _
        mfsysObject.GetSpecialFolder(SystemFolder) & vbCrLf & _
        "Temporary folder: " & _
        mfsysObject.GetSpecialFolder(TemporaryFolder) & vbCrLf & _
        "Current folder: " & CurDir & vbCrLf
    `Get the current folder object
    Set fldObject = mfsysObject.GetFolder(CurDir)
    `Display some information about it
    txtData = txtData & "Current directory contains " & _
        fldObject.Size & " bytes."
End Sub

`Moves the current directory up to the root, then back
Sub MoveFolder()
    Dim fldCurrent As Folder
    `Get the current folder
    Set fldCurrent = mfsysObject.GetFolder(CurDir)
    `Move the folder to the root
    fldCurrent.Move "\"
    `Move the folder back where it belongs
    fldCurrent.Move CurDir
End Sub

Sub cmdOpenFile_Click()
    `Declare a text stream object
    Dim tstrOpen As TextStream
    Dim strFileName As String
    `Display the Save common dialog
    dlgFile.ShowOpen
    strFileName = dlgFile.FileName
    `Check if a filename was specified
    If strFileName = "" Then Exit Sub
    `Check if the file already exists
    If Not mfsysObject.FileExists(strFileName) Then
        Dim intCreate As Integer
        intCreate = MsgBox("File not found. Create it?", vbYesNo)
        If intCreate = vbNo Then
            Exit Sub
        End If
    End If
    `Open a text stream
    Set tstrOpen = mfsysObject.OpenTextFile(strFileName, _ 
        ForReading, True)
    `Check if file is zero length
    If tstrOpen.AtEndOfStream Then
        `Clear text box, but don't read -- file is
        `zero length
        txtData = ""
    Else
        `Display the text stream
        txtData = tstrOpen.ReadAll
    End If
    `Close the stream
    tstrOpen.Close
End Sub

Sub cmdSaveFile_Click()
    `Declare a text stream object
    Dim tstrSave As TextStream
    Dim strFileName As String
    `Display the Save common dialog
    dlgFile.ShowSave
    strFileName = dlgFile.FileName
    `Check if a filename was specified
    If strFileName = "" Then Exit Sub
    `Check if the file already exists
    If mfsysObject.FileExists(strFileName) Then
        Dim intOverwrite As Integer
        `Prompt before overwriting an existing file
        intOverwrite = MsgBox("File already exists. " & _
            "Overwrite it?", vbYesNo)
        `If the user chose No, exit this procedure
        If intOverwrite = vbNo Then
            Exit Sub
        End If
    End If
    `Open a text stream
    Set tstrSave = mfsysObject.OpenTextFile(strFileName, _ 
        ForWriting, True)
    `Save the text stream
    tstrSave.Write txtData
    `Close the stream
    tstrSave.Close
End Sub

`Creates sample temp file
Sub WriteTempFile()
    Dim fsysTemp As New FileSystemObject
    Dim tstrTemp As TextStream
    Dim strTempName As String
    `Get a temporary filename
    strTempName = fsysTemp.GetTempName
    `Create a text stream
    Set tstrTemp = fsysTemp.CreateTextFile(strTempName)
    `Write to the stream
    tstrTemp.Write "This is some temp text."
    `Close it
    tstrTemp.Close
    `Delete the file
    fsysTemp.GetFile(strTempName).Delete
End Sub