Question

VB上传文件程序查错

我想用VB结合ASP做个文件上传的程序，可是用这个的时候老是出错，高手帮我找找原因和如何解决？

Dim InPutFile As String
Dim OutPutFile As String

Private Sub cmdChoose_Click()
CommonDialog1.ShowOpen
InPutFile = CommonDialog1.FileName
txtFileLoad.Text = InPutFile
End Sub

Private Sub cmdExit_Click()
End
End Sub

Private Sub cmdUpload_Click()
If InPutFile = "" Then
MsgBox "Choose a File first!"
Exit Sub
End If
OutPutFile = GetNameFromFilePath(InPutFile)
FileCopy InPutFile, App.Path & "\" & OutPutFile & ""'这句出错：实时错误70，拒绝的权限
MsgBox "The File has already uploaded!"
End Sub

Private Sub Form_Load()
InPutFile = ""
txtFileLoad.Text = "Choose The File"
cmdChoose.Caption = "Choose"
cmdUpload.Caption = "Upload"
cmdExit.Caption = "Exit"

txtFileLoad.Enabled = False
End Sub

'下面程序看不懂，最好帮我注释一下谢谢。

Public Function GetNameFromFilePath(ByVal strFullPath As String, Optional ByVal strSplitor As String = "\") As String
Dim thePath As String

thePath = Left$(strFullPath, InStrRev(strFullPath, strSplitor, , vbTextCompare))
GetNameFromFilePath = Mid(InPutFile, Len(thePath) + 1, Len(InPutFile))
End Function

Answer 1

比如 strFullPath ="C:\Documents and Settings\user\桌面\123"
那么 thePath = "C:\Documents and Settings\user\桌面\"
instrRev(strfullpath,"\") 函数是从后开始查找"\" 并截取
getnameformfilepath = "123" 其实这个函数就是截取路径下的文件名
至于 其中的 函数用法你可以直接去参考MSDN 的 。