日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當前位置:雨林木風下載站 > 技術開發教程 > 詳細頁面

Visual Basic文件系統設置列表

Visual Basic文件系統設置列表

更新時間:2022-05-13 文章作者:未知 信息來源:網絡 閱讀次數:

VB是現在比較流行的一種語言,相關的書籍也非常多,因此在這里也就沒有必要介紹基礎的內容了(如果非要,那你就去買本VB入門的書吧)。在編程的過程中我們經常會用到對文件系統的操作,下面是我在實際應用中(或在網上收集)的相關技巧(大部分是 API 技巧),經過仔細的整理后,希望對大家學習提高VB編程有幫助。

  讀取 Windows 所在目錄

  API函數:GetWindowsDirectory Private Declare Function GetWindowsDirectory Lib″kernel32″ Alias ″GetWindowsDirectoryA″(ByVal lpBuffer As String, ByVal nSize As Long) As Long

  Const MAX-PATH = 260

  ′定義足夠長的字符串

  Sub GetWinDir()′定義函數

  Dim S As String, Length As Long  

  S = String(MAX-PATH, 0)′賦值

  Length=GetWindowsDirectory(S, MAX-PATH)

  ′S為取得目錄,MAX-PATH 為長度

  S = Left(S, InStr(S, Chr(0)) - 1)

  ′去掉多余的空格

  MsgBox ″Windows 路徑=″ & S,″Win 目錄″

  End Sub

  補充:S 和 MAX-PATH 的值是可以隨便賦的,

  如:Dim S as String *20

  Length = GetWindowsDirectory(S,20)

  不過,這兩個的值,一定要夠大(一定要大于系統的 Windows 的目錄的字符數),不然就不能正常運行。

  讀取Windows\System 的所在目錄

  API 函數:GetSystemDirectory

  Private Declare Function GetSystemDirectory Lib ″kernel32″ Alias ″GetSystemDirectoryA″(ByVal lpBuffer As String, ByVal nSize As Long) As Long

  大家注意這個 API 函數和一個的用法完全一樣,只是把相應的位置做一個修改就行了,因此這里就不在多講了。

  復制整個目錄

  (包含子目錄及其所有文件)

  假設我們想把″c:\vb″目錄下的所有文件(包含其子目錄)復制到″d:\vb″目錄下。

  程序代碼如下:

  Dim SHFileOp As SHFILEOPSTRUCT

  SHFileOp.wFunc = FO-COPY′拷貝

  SHFileOp.pFrom = ″c:\vb*.*″

  ′也可以指定成 ″c:\vb″

  SHFileOp.pTO=″d:\vb″′目標目錄

  SHFileOp.fFlags = FOF-ALLOWUNDO+FOF-NOCONFIRMMKDIR

  ′在復制文件時若需要建立目錄,不預先征詢使用者即直接建立

  SHFileOperation SHFileOp′執行

  讀取磁盤的空間及可用空間

  API 函數:GetDiskFreeSpace

  Private Declare Function GetDiskFreeSpace Lib ″kernel32″ Alias ″GetDiskFreeSpaceA″ (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTtoalNumberOfClusters As Long) As Long

  參數說明:

  lpRootPathName:驅動器根目錄,以 C 盤為例,必須寫成″C:\″,不可以寫成″C:″或″C″。

  lpSectorsPerCluste:每一簇的扇區數。

  lpBytesPerSector:每一扇區的字節數。

  lpNumberOfFreeClusters :可用的簇數。

  lpTtoalNumberOfClusters:總簇數。

  示例:

  Dim Sectors As Long, Bytes As Long, Free As Long, Total As Long, FreeMB As Long, TotalMB As Long, WisMB As Long

  GetDiskFreeSpace ″c:\ ″, Sectors, Bytes, Free, Total

  FreeMB = Bytes * Sectors * Free \ 1024 \ 1024

  ′可用空間,以 MB 為單位

  TotalMB = Bytes * Sectors * Total \ 1024 \ 1024

  ′總空間,以 MB 為單位

  WisMB = TotalMB - FreeMB

  ′已用空間,以 MB 為單位

  (VB愛好者樂園http://www.d1vb.com)

  編注:

  API是應用程序編程接口 (Application Program Interface) 的縮寫,這是一組供應用程序使用的命令,用以向計算機的操作系統請求或執行更低級的設備訪問操作。 

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統下載排行

主站蜘蛛池模板: 成人久久18免费网站入口 | 日本粉色视频 | 国产一级久久久久久毛片 | 国产高清在线看 | 国产精品久久国产三级国电话系列 | 国产在线观看精品香蕉v区 国产在线观看精品一区二区三区91 | 日日夜夜天天操 | 日本道在线视频 | 中文字幕在线看视频一区二区三区 | 蜜桃视频在线观看视频网站 | 老司机成人福利视频在线观看免费 | 精品一区二区三区在线成人 | 日韩a视频在线观看 | 91日本在线视频 | 草草视频在线观看 | 日韩色视频一区二区三区亚洲 | 欧美综合区自拍亚洲综合天堂 | 欧美综合在线播放 | 亚洲精品系列 | 亚洲乱码一区二区三区在线观看 | 欧美一级视频在线高清观看 | 99精品视频在线免费观看 | 日韩久久精品视频 | 图片区 日韩 欧美 亚洲 | 亚洲精品国产第一区第二区国 | 99久久精品费精品国产一区二区 | 在线观看免费日本 | 国产精品99久久久久久夜夜嗨 | 国产精品久久免费 | 亚洲欧美午夜 | 久久成人综合 | 久爱午夜精品免费视频 | 色综合久久久久久中文网 | 天天天干干干 | 欧美一区日韩精品 | 国产成人视屏 | 99在线精品视频在线观看 | 日本在线观看网址 | 激情6月丁香婷婷色综合 | 中文字幕乱码亚州精品一区 | 欧美成人三级一区二区在线观看 |