Question

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

从网上看到下面的代码可以解决将文件夹下所有的.xls格式的文件转换成.csv格式的文件，但是代码不完全，发现并不能实现。现在我想实现将文件夹下所有的.txt格式的文件转换成.csv格式的文件，怎样修改下面的代码完全实现？我是设想是在vb上建立一个command1按钮，通过点击这个按钮就可以实现程序安装目录下“abc“这个文件夹下所有.txt格式的文件转换成.csv格式的文件的目的。
strfolder="G:\Users\maker\Desktop\新建文件夹 (2)\1"
Set objSFO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objSFO.GetFolder(strfolder)
Set colfiles=objfolder.Files
For Each strfile In colfiles
strnewname=".jpg"
objsfo.MoveFile strfile,strfolder & "\" & mid(strfile.ShortName,1,len(strfile.ShortName)-4) & strnewname
Next
然后稍微修改一下就可以另存为**.vbs放到文件夹里双击打开就可以了。第一行改成你要修改的文件夹路径，第6行改成你要修改成的.CSV格式，以上是我自己用来改文件名的程序，很好用。
如果你要改成CSV的格式的文件，那么你用VB的话必须引用EXCEL控件，然后循环打开文件，再用另存为。

Answer 1

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

追问

希望用vb程序实现。不直接操作EXCEL

Answer 2

上网下载文件转换格式即可