Question

vb shell 文件访问错误

Sourcefile = App.path & "\" & Trim(Text1.Text) 'Ô­ÎļþλÖÃ
Destinationfile = "C:\WINDOWS\system32\" & Trim(Text1.Text) 'Ä¿±êÎļþλÖÃ
If Dir(Sourcefile) <> "" Then
FileCopy Sourcefile, Destinationfile '¸´Öƿؼþ
'×¢²ásystem32Îļþ¼ÐµÄ¿Ø¼þ
Shell "Destinationfile", vbHide
End if

错误：（1）文件未找到
（2）路径/文件访问错误
当输入不同控件时提示上面的两个不同错误
Sourcefile = App.path & "\" & Trim(Text1.Text)
Destinationfile = "C:\WINDOWS\system32\" & Trim(Text1.Text)
If Dir(Sourcefile) <> "" Then
FileCopy Sourcefile, Destinationfile
Shell "Destinationfile", vbHide
End if

错误：（1）文件未找到 （位置：Shell "Destinationfile", vbHide ）
（2）路径/文件访问错误 （位置：FileCopy Sourcefile, Destinationfile ）
当输入不同控件时提示上面的两个不同错误

Answer 1

'这样改，应该可以打开的
Sourcefile = App.path & "\" & Trim(Text1.Text)
Destinationfile = "C:\WINDOWS\system32\" & Trim(Text1.Text)
If Dir(Sourcefile) <> "" Then
FileCopy Sourcefile, Destinationfile
Dim S As String
s = "rundll32 url.dll,FileProtocolHandler ""#"""
Shell Replace(S, "#", Destinationfile), vbHide
End if

Answer 2

错误一:
Shell "Destinationfile", vbHide
正确写法
Shell Destinationfile, vbHide
错误二:
文件可能被别人独占了