vb怎样把一个文件夹中所有txt文件转换成CSV格式

这里没有引用EXCEL对象，应该是先引用EXCEL对象，然后用EXCEL打开txt文件（这里可设EXCEL对象为可见或不可见，是一个中间过程，可见也没有多大意义，转换时间短可能也不去关心，转换后你也不保存EXCEL文件），另存为CSV格式后退出。

vbnet和vb6的写法不一样 可以用以下代码来设置字体样式和颜色

TextBox1Font = New Font("Arial", 16, FontStyleBold) 'Arial字体,大小:16,粗体
'TextBox1Font = New Font("Arial", 16, FontStyleItalic) 'Arial字体,大小:16,斜体
'TextBox1Font = New Font("Arial", 16, FontStyleRegular) 'Arial字体,大小:16,正常
'TextBox1Font = New Font("Arial", 16, FontStyleStrikeout) 'Arial字体,大小:16,删除线
'TextBox1Font = New Font("Arial", 16, FontStyleUnderline) 'Arial字体,大小:16,下划线
TextBox1ForeColor = ColorRed '前景色

xml文件和纯文本文件是有区别的，你用的是主要针对文本的 *** 作来处理xml，解析出来格式不正确很正常，对于不同的文件可能需要采取正确的读写方式才能达到预期的目的。
对于楼主后边的疑问是很容易理解的，如果利用VB对于文件的读写来达到复制文件目的，那么对于觉得多数文件都是行得通的，因为文件的本质都是二进制代码。

Private Sub Command1_Click()
a = "20131024200000"
a = CDate(Format(a, "0000/00/00 00:00:00"))
MsgBox a
End Sub
'时间格式，请参考。

---