VisualBasic程式设计.pptVIP

Visual Basic 程式設計 講師：戴志華 hana@arbor.ee.ntu.edu.tw 國立台灣大學電機工程研究所 第十一章 檔案存取 DriveList DriveListBox(cont’d) DriveListBox(cont’d) DirListBox DirListBox (cont’d) DirListBox (cont’d) Private Sub Dir1_Change() MsgBox 目前目錄所在: Dir1.Path End Sub Private Sub form_click() Cls Print 目前目錄: Dir1.Path Print 目前目錄下可選擇目錄個數: Dir1.ListCount Print 已選擇目錄位置: Dir1.ListIndex Print 已選擇目錄: Dir1.List(Dir1.ListIndex) Print 位置0的目錄: Dir1.List(0) End Sub FileListBox FileListBox(cont’d) FileListBox(cont’d) FileListBox(cont’d) Private Sub File1_Click() Form1.Cls Print 目前目錄: File1.Path Print 已選擇檔案的檔名: