如何批量修改文件的后缀名。

Question

我有很多图标的文件，后缀是.icl。要改成ico才能用啊，一个个改太麻烦啊。
我想编个程序一起改，希望高手指点啊。

Answer 1

简单做法
ren *.icl *.ico复杂做法.写个程序
Dim fso As New FileSystemObject
Dim fd As folder
Set fd = fso.GetFolder("c:\abc")Dim f As File
For Each f In fd.Files
    Dim filename As String
    filename = f.Path
    If Right(filename, 4) = ".icl" Then
        filename = Left(filename, Len(filename) - 1)
        filename = filename & "o"
        f.Move filename
    End If
Next

Answer 2

Dim fso As New FileSystemObject
类型未定义
需要加入什么控件啊。

Answer 3

在引用里面加入microsoft scripting runtime,就可以啦

Answer 4

dim file as string 
file=dir("c:\myIcon\*.ic1)
do until file=""
    name file as left(file,len(file)-4) & ".ico"
loop

Answer 5

Kain(去者) 
出现错误文件未找到。

Answer 6

microsoft scripting runtime
 控件里面有吗？我找不到啊，

Answer 7

前面已经说道简单的办法的，要改名的话用DOS命令 ren 直接改就可以了。
另外 icl 文件和 ico 文件不同，其中中包含了多个图标。l是libary的意思，多的时候一个文件中可能包含几十个不同的图标。建议你去下载一个MicroAngelo图标编辑软件，打开icl文件，把其中要用的图标保存出来。

Answer 8

wxj_lake(蔚蓝的风) 谢谢你，我还以为是写错的。