如何得到当然程序所在的文件夹

CString   strPath;  
  CString   oldpath;  
  ::GetModuleFileName(NULL,strPath.GetBufferSetLength(MAX_PATH+1),  
  MAX_PATH);  
  strPath.ReleaseBuffer();  
  oldpath=strPath;  
  int   nPos=strPath.ReverseFind('//');  
  strPath=strPath.Left(nPos);  
          CString   strFileName;//.Format("%s",strPath);  
  strFileName.Format("%s",oldpath);  
          strFileName   =   strFileName.Right(strFileName.GetLength()   -   nPos   -1);  
  AfxGetMainWnd()->SetDlgItemText(IDC_EDIT3,strPath);  
  AfxGetMainWnd()->SetDlgItemText(IDC_EDIT4,strFileName);