主题：求助：关于生成文本文件的问题

参考：

http://www.foxtable.com/help/topics/0331.htm

Dim r As Row = Tables("表A").Current
Dim path As String = "D:\车辆档案\" & r("号牌号码")
Dim v As String = "*车牌号码" & r("号牌号码")
v = v & vbcrlf & "*车主" & r("车主")
v = v & vbcrlf & "*车辆类型" & r("车辆类型")
v = v & vbcrlf & "*外廓尺寸长(mm)" & r("外廓尺寸长")  & "宽(mm)" & r("外廓尺寸宽") & "高(mm)" & r("外廓尺寸高")
v = v & vbcrlf & "*轴数" & r("轴数")
If FileSys.FileExists(path) = False Then
    filesys.CreateDirectory(path)
End If
filesys.WriteAllText(path & "\" & r("号牌号码") & ".txt",v,False,Encoding.Default)