关于Visual Basic .net 文件存取问题

我用的是Visual Basic 2008(.net framework 3.5)
运行编写的程序测试了一下，可以编译，也可以运行，就是文件读取有问题
看了一天了，不知道问题出在哪里～
把文件操作部分的代码列出来，请高手们看看

‘写入密码，选项1、2
FolderBrowserDialog1.ShowDialog()
savepath = FolderBrowserDialog1.SelectedPath
savepath = savepath & "\投票器.config"
Dim filenum As Integer
filenum = FreeFile()
FileOpen(filenum, savepath, OpenMode.Random)
FilePut(filenum, password.Text, RecordNumber:=1)
FilePut(filenum, content1.Text, RecordNumber:=2)
FilePut(filenum, content2.Text, RecordNumber:=3)
FileClose(filenum)
'进行投票时的统计工作 实时储存至文件
Private Sub main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim filenum As Integer
filenum = FreeFile()
FileOpen(filenum, config.savepath, OpenMode.Random, OpenAccess.ReadWrite)
FileGet(filenum, content1, RecordNumber:=2)
FileGet(filenum, content2, RecordNumber:=3)
FileClose(filenum)
select1.Text = content1
select2.Text = content2
End Sub

Private Sub select2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles select2.Click
Dim filenum As Integer
filenum = FreeFile()
FileOpen(filenum, config.savepath, OpenMode.Random, OpenAccess.ReadWrite)
num2 = num2 1
FilePutObject(filenum, num2, RecordNumber:=5)
FileClose(filenum)
End Sub

Private Sub select1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles select1.Click
Dim filenum As Integer
filenum = FreeFile()
FileOpen(filenum, config.savepath, OpenMode.Random, OpenAccess.ReadWrite)
num1 = num1 1
FilePutObject(filenum, num1, RecordNumber:=5)
FileClose(filenum)
End Sub

简单说一下程序的思想，首先在config窗口输入管理密码，投票选项1内容，选项2内容，并保存在 投票器.config 中
然后进入main窗体
在main里进行投票计数，实时储存至文件，
点击管理员选项进入admin窗体，load时读取密码，让用户输入，如正确则显示票数，不正确弹出msgbox
谢谢！ 电脑问题网给出的最佳答案 据现在的情况看，你的num1和num2没有赋初值，应该在formload事件里读取文件，赋给他们。
还有，你的num1和num2都放到第5条记录中了，会覆盖的。应该分开。
其他回答 　 出错的地方应该是这里吧：
savepath = savepath & "\投票器.config"
你在其他地方使用的savepath应该是一个路径，而在之前程序中已将其设置为一个文件的完整路径。