VB对文件的操作

Question

Print语句是在文件末尾写如一行数据。而且你要写如常"bootkey=0"这语句时，也不能这样写吧？具体怎么写我也不太清楚，我回去看看。我在NetBar中。
    关于学VB中的问题，我也有同感。我买了写如VB实例等的是书，但是我觉得那太业余了，买本专业的好书不容易啊，尤其在我们这荒凉的兰州。如果这位兄台有什么好点子的话，可否通知一声？
    我的Email:[email protected]

Answer 1

前几天看到过一本，实例到是少，介绍入门的不错，应该比较专业。
“VB务实入门教程”
不过不知道楼上那位，你们那里有没有。
可惜我是买不成这本书了。
本人提前买走了。
更可笑的是前几天我竟然贪小便宜去路边书摊上弄了一本繁体的，应该是香港的吧，不过只适用于2。0 或3。0 用来了解点VB的基础到还是不错，。

Answer 2

msdos.sys的文件格式与ini文件类似
用WritePrivateProfileString写试试
WritePrivateProfileString VB声明 
Declare Function WritePrivateProfileString& Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As String, ByVal lpFileName As String) 
说明 
在初始化文件指定小节内设置一个字串 
返回值 
Long，非零表示成功，零表示失败。会设置GetLastError 
参数表 
参数 类型及说明 
lpApplicationName String，要在其中写入新字串的小节名称。这个字串不区分大小写 
lpKeyName Any，要设置的项名或条目名。这个字串不区分大小写。用vbNullString可删除这个小节的所有设置项 
lpString String，指定为这个项写入的字串值。用vbNullString表示删除这个项现有的字串 
lpFileName String，初始化文件的名字。如果没有指定完整路径名，则windows会在windows目录查找文件。如果文件没有找到，则函数会创建它 
'PrivateProfileString
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Private Sub Form_Load()
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: [email protected]
    Dim Ret As String, NC As Long
    'Write the setting to the file (c:\test.ini) under
    '   Project1 -> Keyname
    WritePrivateProfileString App.Title, "KeyName", "This is the value", "c:\test.ini"
    'Create a buffer
    Ret = String(255, 0)
    'Retrieve the string
    NC = GetPrivateProfileString(App.Title, "KeyName", "Default", Ret, 255, "C:\test.ini")
    'NC is the number of characters copied to the buffer
    If NC <> 0 Then Ret = Left$(Ret, NC)
    'Show our string
    MsgBox Ret
    'Delete the file
    Kill "c:\test.ini"
End Sub

Answer 3

我也听许多前辈说写入INI文件，谢谢您的提醒，我一会去试

Answer 4

Set fs = CreateObject("Scripting.FileSystemObject")
'To copy folder
fs.CopyFolder "c:\test","c:\subbu\test"
'To move folder
fs.MoveFolder "c:\test","c:\subbu\test"
'To DeleteFile
fs.DeleteFile "c:\test.txt"
'To CreateFile
fs.CreateTextFile "c:\test.txt"
'To check for existence
'return value if true if exists or false
fs.FileExists "c:\test.doc"
fs.FolderExists "c:\subbu"
'To Create a Folder
fs.CreateFolder ("c:\test")
'To Delete a Folder
fs.DeleteFolder "c:\test"

Answer 5

一、用写INI文件的API函数，就可以了。
二、关于VB6.0的书，我个人认为一本叫NORTON PETERK教你学VB6.0这本书不错的，我学VB6.0就用的这本书。不错的可以考虑一下。
书名可能有误，等我回去后看一下只是我觉得这本书讲得比较全面而且也很详细。

Answer 6

那就好，谢谢楼上那位，我就怕买不到合适的书~
你们大家觉得MSDN的怎么样？~