怎样使用vb5.0读写msdos.sys文件.txt

以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

MSDOS.SYS是 一 个 文 本 文 件 ， 你 可 以 使 用 记 事 本 打 开 ， 它 的 内 容 ： 
    [Paths] 
    WinDir=D:\PWIN95 
    WinBootDir=D:\PWIN95 
    HostWinBootDrv=D 
     
    [Options] 
    BootMulti=0 
    BootGUI=1 
    Network=1 
    ; 
    ;The following lines are required for compatibility with other programs. 
    ;Do not remove them (MSDOS.SYS needs to be >1024 bytes). 
    ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxa 
    ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxb 
    ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxc 
    ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxd 
    ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxe 
    ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxf 
    ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxg 
    ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxh 
    ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxi 
    ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxj 
    ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxk 
    ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxl 
    ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxm 
    ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxn 
    ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxo 
    ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxp 
    ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxq 
    ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxr 
    ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxs 
    从 这 个 文 件 内 容 看 ， 它 基 本 就 是 一 个 INI文 件 ， 读 写 方 法 可 以 参 考 QA000940 “VB中如何读取INI文件”。 这 个 文 件 的 读 操 作 没 有 特 别 的 地 方 ， 但 由 于 文 件 具 有 只 读 和 隐 藏 属 性 。 在 写 之 前 需 要 修 改 文 件 属 性 ， 下 面 是 一 个 简 单 的 例 子 ： 
     Dim s As String, n As Long 
     
     s = Space(255) 
     n = GetAttr("c:\msdos.sys") 
     GetPrivateProfileString "Options", "BootMulti", "", s, 255, "c:\msdos.sys" 
     MsgBox s 
     ' 修 改 文 件 属 性 
     SetAttr "c:\msdos.sys", vbNormal 
     WritePrivateProfileString "Options", "BootMulti", "0", "c:\msdos.sys" 
     ' 恢 复 文 件 属 性 
     SetAttr "c:\msdos.sys", n 
    我 试 过 用 这 种 方 法 修 改 有 关 设 置 ， 但 不 知 道 你 是 否 有 其 他 需 要 。 你 也 可 以 使 用 文 本 文 件 通 常 的 做 法 读 写 ， 参 考 VB帮 助 中 有 关 Open、 Close、 Line Input、 Print #等 语 句 的 例 子 。 
<END>