VC中得到当前文件夹的路径

CString GetCurPath()
{
    CString   m_strPath;  
    TCHAR   szFull[_MAX_PATH];  
    TCHAR   szDrive[_MAX_DRIVE];  
    TCHAR   szDir[_MAX_DIR];  
    ::GetModuleFileName(NULL,   szFull,   sizeof(szFull)/sizeof(TCHAR));  
    _tsplitpath(szFull,   szDrive,   szDir,   NULL,   NULL);  
    _tcscpy(szFull,   szDrive);  
    _tcscat(szFull,   szDir);  
    m_strPath   =   CString(szFull); 
    return m_strPath;
}