16,554
社区成员
发帖
与我相关
我的任务
分享
For Each sFileName As String In IO.Directory.GetFiles("C:\Temp", "*.*")
Dim sName As String = IO.Path.GetFileNameWithoutExtension(sFileName)
Dim sExtension As String = ".txt"
Dim sNewName As String = sName & sExtension
Rename(sFileName, sNewName)
Next