vb6 如何获得当前位置的路径
想在vb6的环境下得到当前位置的路径名。如工程文件vbp在 C:\Users\Administrator\Desktop\MM下，如何通过代码获得当前位置的路径"C:\Users\Administrator\Desktop\MM"


VBScript可以看作是VB语言的简化版,在vbs中实现起来很简单就三句就可以了，求vb中如何实现。给个思路吧？

谢谢了

VBS的代码：

VB code

Call getProjectPathMsgBox getProjectPathPublic Function getProjectPath()    Set objFSO = CreateObject("Scripting.FileSystemObject")                    '创建SFO对象    Set objFile = objFSO.GetFile(wscript.scriptfullname)                       '获取文件的完整路径    getProjectpath= objFSO.GetParentFolderName(objFile)                        '获取上一级文件夹路径    'getProjectpath= objFSO.GetParentFolderName(getProjectpath)           '获取上一级的上级文件夹路径    Set objFSO = Nothing    Set objFile = NothingEnd Function