请问，如何重命名一个文件夹？

[QmStar]

请问，如何重命名一个文件夹？我现在用的是API:MoveFile,但是在NT和2000中不能成
功，有没有其它方法?

[DragonFly_1976]

你可以调用DOS命令解决。

[yanz]

使用Name语句：

Name 原目录名 As 新目录

说明：若文件夹中有文件被打开，则目录不能被改名

[QmStar]

用API怎么实现，

[DragonFly_1976]

可以调用DOS命令解决。

[footballboy]

'引用Microsoft Scripting Runtime
Dim fsoSys As New FileSystemObject

Private Sub Form_Load()
fsoSys.MoveFolder "c:\temp\amd", "c:\temp\intel"
Set fsoSys = Nothing
End Sub

[MyLf]

Private Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As String ' only used if FOF_SIMPLEPROGRESS
End Type

Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Private Const FO_RENAME = &H4

Private Sub RenFold(ByVal SPath As String, ByVal DPath As String)
Dim SHF As SHFILEOPSTRUCT
With SHF
.wFunc = FO_RENAME
.pFrom = SPath & Chr(0) '一定要在目錄或名稱後面加上Chr(0)
.pTo = DPath
End With
SHFileOperation SHF
End Sub