77084visualbasic程式設(shè)計(參考版)
2024-10-04 09:36本頁面
【正文】 “World” 28 讀取檔案 (循序存取 ) Line Input []檔案代碼 , varname 以行為單位讀入資料 Do while Not EOF(1) Line Input 1, aline = amp。 bytes Print Print 。Visual Basic 程式設(shè)計 講師：戴志華 國立臺灣大學(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 程式還沒完 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
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1