vb怎样把一个文件夹中的所有txt文本文件后缀改成csv

Question

文件夹App.Path & "\abc\" 中有许多txt格式的文本文件。点击vb窗体上的按钮command1，所有txt文件的后缀.txt变成.csv，用vb怎样实现呢？

Answer 1

楼主参考一下：

Private Sub Command1_Click()
'Win XP下测试通过
   Dim strPath As String
   strPath = App.Path & "\abc\"     '指定路径，结尾要带上 \
   Shell "cmd.exe /c ren " & strPath & "*.txt *.csv", 0
End Sub

Answer 2

 '添加一个Command1控件，和一个File1控件
Private Sub Command1_Click()
For i = 1 To File1.ListCount
a = App.Path & "\" & File1.List(i - 1)
n = Len(a)
b = Left(a, n - 4) & ".csv"
Name a As b
Next i
End Sub
Private Sub Form_Load()
File1.Path = App.Path
File1.Pattern = "*.txt"
End Sub

Answer 3

Name 文件名 As 新文件名如Name "c:\1.txt" As "c:\renamed.csv"

Answer 4

在文件操作的时间，把重命名直接改成这个就行了。比如说，你读到了a.txt这个文件的内容，然后把内容读出来后，再把这个文件删除，然后再新建个文件，把内容放进去，重新命名为a.csv