VisualBasic程式设计档案存取.PDF

Visual Basic程式設計 檔案存取 檔案控制項元件 File System Objects DriveList 屬性 Drive 目前磁碟機代碼 List 可選擇磁碟機 ListCount 可選擇磁碟機個數 ListIndex 已選擇的磁碟機的位置 事件 Change 所選擇的磁碟機改變時 2 DriveListBox (cont.) Private Sub Drive1_Change() Print Drive1.Drive Print Drive1.List(Drive1.ListIndex) Print Drive1.ListCount Print Drive1.ListIndex End Sub Private Sub form_click() Drive1.Drive = c: End Sub 3 DirListBox 屬性 Path 目前目錄 List 可選擇目錄 ListCount 目前目錄下可選擇目錄個數 ListIndex 已選擇目錄的位置 事件 Change 所選擇的目錄改變時 4 Private Sub Dir1_Change() MsgBox (Dir1.Path) End Sub Private Sub form_click() Cls Print Dir1.Path Print Dir1.ListCount Print Dir1.List(Dir1.ListIndex) Print Dir1.List(0) End Sub 5 FileListBox 屬性 FileName 已選擇檔案的檔名 Path 目前目錄 List 可選擇檔案 ListCount 目前目錄下可選擇檔案數目 ListIndex 已選擇檔案的位置 MultiSelect 可否重複選擇 Selected(數字 ) 某個元素是否有被選 Pattern 要顯示的檔案型態 (過濾方式) ， 如：*.*或 *.txt …… 6 FileListBox (cont.) 事件 Click PatternChange PathChange 目前目錄改變時 7 FileListBox (cont.) Private Sub File1_Click() Print File1.FileName Print File1.Path Print File1.Path + \ + File1.FileName End Sub Private Sub Form_Activate() File1.Path = c:\tem