我们大一实践训练,要求用VB做文件管理程序(刚学了半年..)
运行,修改文件名(重命名)的时候,打汉字就出乱码!
以下是我编的代码:
Private Sub CmdName_Click()
newname = InputBox("请输入新文件名" & Chr(13) & "文件名不能包含下列任何字符之一:" & Chr(13) & "\/:*?""<>|", "重命名")
If newname <> "" Then
Name url & File1.FileName As url & newname
Else
Exit Sub
End If
End Sub例子:运行时候,在重命名处输入汉字“打开”,则在框里显示“湖羲”- -|| 点确定,就显示事时错误‘75’;
路径/文件访问错误
百思不得其解,望指教
运行,修改文件名(重命名)的时候,打汉字就出乱码!
以下是我编的代码:
Private Sub CmdName_Click()
newname = InputBox("请输入新文件名" & Chr(13) & "文件名不能包含下列任何字符之一:" & Chr(13) & "\/:*?""<>|", "重命名")
If newname <> "" Then
Name url & File1.FileName As url & newname
Else
Exit Sub
End If
End Sub例子:运行时候,在重命名处输入汉字“打开”,则在框里显示“湖羲”- -|| 点确定,就显示事时错误‘75’;
路径/文件访问错误
百思不得其解,望指教
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货