创建一个ini文件后往里面写数据时出现了有关问题

创建一个ini文件后往里面写数据时出现了问题！
在程序关闭前创建一个ini文件保存用户信息，创建后写入数据时正常执行，但是看文件为空，第二次这个用户再次登陆，退出程序前，检查这个文件已经存在，然后写入信息，这个时候就可以写入，请问这是为什么呢？
代码如下：
                        Dim   strUserPath   As   String   =   "D:\ACR\ACR\user\ "   &   "0001 "   &   "\USER.ini "
                        If   File.Exists(strUserPath)   =   False   Then
                                Directory.CreateDirectory( "D:\ACR\ACR\user\ "   &   "0001 ")
                                File.Create(strUserPath)
                        End   If

                    WritePrivateProfileString（   "COLORSET ",   "XYGRAPH01_LINE ",   CStr(.LineClass))，strUserPath）

[解决办法]
看下这个可否帮到你
http://blog.sina.com.cn/u/4668898b0100025k
[解决办法]
up
[解决办法]
写入数据后，是否忘了把文件关闭了。
[解决办法]
写完要刷新流
[解决办法]
比如你的数据流是fs。那么只要调用fs.close()就可以了，关闭之前默认刷新流的。否则会有数据没有写入文件