类型：转载 责任编辑：asp.net 日期：2007/05/23
热门软件下载：
我在网上看到一段程序，不太明白，请大家指教
Public Sub SaveCfgFile(ByVal fn As String)
Dim cfgfn As String
On Error GoTo ERRHANDLE
cfgfn = App.Path & "\cfg.ini"
If Dir(cfgfn) <> "" Then
Kill cfgfn
End If
filenum = FreeFile
Open cfgfn For Output As #filenum
Write #filenum, MapSelNum, fn
Close #filenum
ERRHANDLE:
End Sub
为什吗要加这一段：
If Dir(cfgfn) <> "" Then
Kill cfgfn
End If
网友回答：
这句是当已经有文件存在时先将该文件删除，然后创建一个新的文件，写入新的内容。
用来叛断文件是否已存在！如果该文件存在就删除！
那我就不多说了!
判断 App.Path & "\cfg.ini" 是否存在，存在则删除该文件