只爱陌生人

我想把某一文件夹下的所有的文件名之前（或之后）都加上一些字符，从而实现一次就可以全部重命名。批处理文件该怎么写呀？？？
echo off
for ????? in (????) do ??????????

PS.如果用VB做，又该怎样做？

[ 本帖最后由 只爱陌生人 于 2006-7-30 19:12 编辑 ]

Nothing

MyPath = "f:\"   ' 指定路径。
    Myname = Dir(MyPath, vbDirectory)   ' 找寻第一项。
    Do While Myname <> ""   ' 开始循环。
       ' 跳过当前的目录及上层目录。
       If Myname <> "." And Myname <> ".." Then
          ' 使用位比较来确定 MyName 代表一目录。
          If (GetAttr(MyPath & Myname) And vbDirectory) <> vbDirectory Then
             Name MyPath & Myname As "新的文件名" & Myname '重命名文件
          End If
       End If
       Myname = Dir   ' 查找下一个目录。
    Loop