【正文】 文本框清空 = Put 1, reo, sal End Sub ⑥ 編寫“關閉”按鈕的 Click事件過程 Private Sub Command4_Click() Close 1 Unload Me End Sub 可以在應用程序中很方便地對文件和文件夾進行操作 (1)建立文件夾語句 (MrDir)： MkDir ［路徑］文件夾名 示例： MkDir D:\VB\Temp (2)改變當前文件夾語句 (ChDir)： ChDir 路徑 示例： ChDir D:\VB\Dat (3)刪除文件夾語句 (RmDir)： RmDir ［路徑］文件夾名 示例： RmDir D:\VB\Temp (4)刪除文件語句 (Kill)： Kill ［路徑］文件名 示例： Kill D:\VB\ Kill D:\VB\dat\*.* 文件基本操作 (5)拷貝文件語句 (FileCopy)： FileCopy [路徑 1] 源文件 [, [路徑 2] 目標文件 ] 示例： FileCopy C:\, D:\Temp\ (6)文件的改名和移動： Name 原名 As 新名 改名示例： Name C:\ As C:\ 移動示例： Name C:\ As C:\Tmp\ 在“我的文檔” (C:＼ My Documents)文件夾下創(chuàng)建一個新文件夾“ mydir”，然后復制文件“ C:＼ My Documents＼”到新文件夾下，復制生成的文件名稱由用戶指定 Private Sub Form_Load() Show Print 正在進行文件操作 MkDir c:\my documents\mydir fname = InputBox(請輸入新文件名 , 更改文件名 ) fname = c:\my documents\mydir\ + fname + .txt FileCopy c:\my documents\, fname Print 已完成要求的操作 End Sub 例 文件操作示例 (7)調用應用程序 格式： Shell(命令字符串 [,窗口類型 ]) 功能：調用指定應用程序 示例： x = Shell(C:\Windows\,1) 執(zhí)行“ C:\Windows”文件夾下的應用程序 , 并顯示該程序窗口 FSO (File System Object，文件系統對象方法 ) FSO采用面向對象的編程方法，提供了一整套對文件系統進行管理和操作的屬性、方法和事件 。設置焦點 End Sub ④ 編寫“增加”按鈕的 Click事件過程 Private Sub Command2_Click() If Cheno() Then Exit Sub = = Val() Put 1, reo, sal End Sub ⑤ 編寫“清除”按鈕的 Click事件過程 Private Sub Command3_Click() If Cheno() Then Exit Sub If reo LOF(1) / Len(sal) Then MsgBox 無此記錄 Exit Sub End If = 39。reo表示記錄號 39。記錄號 Put 1, reo, sal 39。 當通過 Dim定義一個變量 (如 nv)為一個記錄類型 Numval時，該變量也就包含該類型的多個數據項，以后可通過 、 (2) 指定 Random類型打開文件，記錄定長，打開文件后，就可以存或取任一個記錄 (3)分別通過 Get和 Put語句，并指定記錄號進行讀一個記錄或存一個記錄 一定要建立好記錄與記錄號之間的關系 1. 讀語句 格式： Get 文件號［，記錄號］，變量 功能：從一個隨機文件中讀出指定記錄到一個變量 2. 格式： Put 默認情況下，記錄號編號為上一次使用的記錄號加 1 存取操作 建立一個有 5名職工工資信息的隨機文件，其中包括職工的職工號 (從 001開始 )、姓名及工資三種數據。 i。讀出記錄程序段 Show For i = 2 To 10 Step 4 39。定義一個 numval類型的變量nv 39。讀出第 2個記錄 Print x$