大哥大姐们进来帮忙看看这串代码，在线等 ……

2009-06-18 09:55:16 64 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

ChromeOS安装教程 ChromeOS，是基于Linux内核研发的ChromiumOS开源系统的闭源系统，最大的特色就是内置了Chrome浏览器，早期主要以Web云端应用程序为主，后来逐渐引入了Android子系统和Linux子系统。本文主要简述摸索的家用笔记本安装ChromeOS安装方法，供各位玩机朋友参考。阅读详情

Private Sub mnurename_Click()
If File1.FileName = "" Then Exit Sub

'调用Rename函数来更改文件的名称
Call Rename(File1.Path, File1.FileName)
File1.Refresh '更新文件列表
End Sub

Private Function Rename(strPath As String, strFileDir As String) As String
On Error GoTo errHandler

Rename = ""
If strFileDir = "" Then
MsgBox "请选择重命名的对象！", vbCritical, "错误"
Exit Function
End If
If Right(strFileDir, 1) = "\" Then
MsgBox "不能够对根目录进行重命名", vbCritical, "错误"
Exit Function
End If

'取得新的文件或者文件夹的名称
Dim str As String
str = InputBox("请输入新的名称", "输入名称")
If str = "" Then Exit Function

'将文件名扩展为全路径的文件名
Dim str1 As String
If Right(strPath, 1) = "\" Then
str1 = strPath & strFileDir
str = strPath & str
Else
str1 = strPath & "\" & strFileDir
str = strPath & "\" & str
End If
Name str1 As str '使用Name语句来改变文件或者文件夹的名称
Rename = str '返回更改之后的文件或者文件名

Exit Function

errHandler:
MsgBox Err.Description, vbCritical, "重命名时，出现下列错误："
End Function

上面的代码为什么重命名时输入汉字就是乱码，

...全文