怎样使用vb5.0读写MSDOS.SYS文件
编号：QA002178
建立日期: 1999年12月6日 最后修改日期：1999年12月6日
所属类别：
shengzi:
操作系统: windows98
编程工具: vb5.0
问题: 怎样使用vb5.0读写MSDOS.SYS文件？怎样修改该文件(添加或删除内容)?
回答:
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 #等语句的例子。
此问题由李海回答。
| |
|
|
| |
|
|
