有对外部文件改名的命令吗？

huangyz_xy

各位大侠，有对外部文件改名的命令吗，且可以支持通配符“*”和“？”，路径是随机的，比如path\,,急用啊！

zyp

VB中有一个NAME命令是用来改文件名的，不过好像不能用通配符．

关于使用方法，F1一下看看便知

duzili

用递归吧

huangyz_xy

能告诉我怎么用递归方法吗？

huangyz_xy

怎么没有人回答呢?

huangyz_xy

顶起啊，哥们！

hi-wzj

网上应该有查找文件的现成代码。自己搜搜看吧。而改名就用name命令。

changweiren

or  filecopy?

红尘如烟

Name 旧文件名 As 新文件名
例如下面的过程将把当前mdb所在文件夹中一个叫“test.txt”的文件重命名为“MyText.txt”
至于通配符和随机路径什么的都可以变通实现
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Sub myReName()
    Dim strPath As String
    Dim strOldName As String
    Dim strNewName As String
    Dim fs As Object
   
    strPath = CurrentProject.Path
    If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
    strOldName = strPath & "test.txt"
   
    Set fs = CreateObject("Scripting.FileSystemObject")
    If fs.FileExists(strOldName) = False Then
        MsgBox "文件" & strOldName & "不存在，无法重命名！", vbCritical
        Exit Sub
    End If
   
    strNewName = strPath & "MyText.txt"
    Name strOldName As strNewName
End Sub

huangyz_xy

好，学习学习