77084visualbasic程式設(shè)計(jì)-文庫(kù)吧
2024-09-10 09:36 本頁(yè)面
【正文】 機(jī) Size 檔案大小 Path 路徑名 Name 檔名 方法 OpenAsTextStream 開(kāi)啟檔案 8 Folder DateCreate 檔案產(chǎn)生日期 DateLastAccessed 最近被讀取 /更改日期 DateLastModified 最近被更改日期 Drive 所在磁碟機(jī) Size 檔案大小 Path 路徑名 Name 檔名 9 File and Folder 10 Dim fs As New FileSystemObject Private Sub Drive1_Change() Dim drv As Drive Set drv = () If (Not ) Then MsgBox Drive is not ready! = False = False Exit Sub End If = True = True = End Sub 11 Private Sub dir1_change() Dim dir As Folder = Cls Set dir = () Print Print Print Print End Sub Private Sub file1_click() Dim fl As file Cls Set fl = ( + \ + _ ) Print Print Print Print End Sub 12 TextStream(循序檔 ) 產(chǎn)生方法 ? [File].OpenAsTextStream ? [FileSystemObject].OpenTextFile 屬性 AtEndOfLine 判斷是否是文字行的最後一個(gè)字元 AtEndOfStream 傳回是否在檔尾 Column 目前位置 Line 目前在第幾行 13 TextStream(cont?d) 方法 Close 關(guān)閉檔案 Read 讀取某數(shù)量的字元 (傳回 Str
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1