Dim dr As String = Tables("文件夹").Current("路径") & "\" & Tables("文件夹").Current("界")& "\" & Tables("文件夹").Current("门") msgbox(dr) Dim nstr As String = "修改名" If FileSys.DirectoryExists(dr)= False Then FileSys.CreateDirectory(dr) End If FileSys.RenameDirectory(dr, nstr) Dim Proc As New Process '定义一个新的Process Proc.File = FileSys.GetParentPath(dr) & "/" & nstr Proc.Start()