求本代码的详细讲解
'读取照片存储路径Dim strPicPath As String
If Not Dir(App.Path & "\picpath.ini") = "" Then
Open App.Path & "\picpath.ini" For Input As #1
Line Input #1, strPicPath
Close #1
If Dir(strPicPath, vbDirectory) = "" Then
strPicPath = App.Path
End If
Else
strPicPath = App.Path
End If
'取图片名称
a = Split(frmUpload.txtFileName.Text, "\")
'拷贝图片文件
FileCopy frmUpload.txtFileName.Text, strPicPath & "\" & a(UBound(a))
'存储图片名称到数据库
rst.Fields("Photo") = a(UBound(a))
这是将照片添加到数据库的代码谁可以帮我讲解一下十分感谢
别人在写原码时不是已经注释的非常清楚了吗？
