77084visualbasic程式設(shè)計(jì)(已修改)
2024-10-16 09:36 本頁(yè)面
【正文】 Visual Basic 程式設(shè)計(jì) 講師：戴志華 國(guó)立臺(tái)灣大學(xué)電機(jī)工程研究所 第十二章 檔案存取 3 Drive AvailableSpace 可用空間大小 (bytes) DriveLetter 磁碟機(jī)代碼 DriveType 磁碟機(jī)型別 FileSystem 檔案系統(tǒng) FreeSpace 剩餘空間大小 (bytes) IsReady TotalSize 總體空間大小 (bytes) 4 Drive(cont?d) DriveType ? 0:Unknown(未知 ) ? 1:Removable(磁片 ……) ? 2:Fixed(硬碟 ……) ? 3:Network(網(wǎng)路磁碟機(jī) ) ? 4:CDROM ? 5:RAMDISK 5 Drive(cont?d) Private Sub Drive1_Change() Dim fs As New FileSystemObject Dim drv As Drive Set drv = ( _ Mid(, 1, 2)) Cls If (Not ) Then MsgBox Drive is not ready Exit Sub End If Print 。 bytes Print 程式還沒(méi)完 6 Drive(cont?d) Select Case Case 0: Print Unknown Case 1: Print Removable Case 2: Print Fixed Case 3: Print Network Case 4: Print CDROM Case 5: Print RAM Disk End Select Print Print 。 bytes Print Print 。 bytes End Sub 7 File DateCreate 檔案產(chǎn)生日期 DateLastAccessed 最近被讀取 /更改日期 DateLastModified 最近被更改日期 Drive 所在磁碟
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1