// Assurer la currentDirectory dans le dossier de l'exe
void __stdcall AppPathInitialize()
{
  char szthis[300];
  char* c = szthis + GetModuleFileName(0, szthis, 300);
  while(*c != '\\') c--; // c POINTE A LA FIN, RECULER TANT QUE NON '\\'
  *c = 0;
  SetCurrentDirectory(szthis);
}

System.getProperty("user.dir");

Public Shared Function GetCurrentDirectory() As String
	Return My.Application.Info.DirectoryPath

End Function

public string GetCurrentDirectory() 
{
    return Application.StartupPath; 
}

<?php
function GetCurrentDirectory () {
 $aPath = pathinfo ($_SERVER['PHP_SELF']);
 return $aPath['dirname'];
}
?>

avec API :
Private Declare Function GetModuleFileName Lib "kernel32.dll" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Function GetCurrentDirectory() As String
Dim nLength As Long
    GetCurrentDirectory = Space$(300)
    GetModuleFileName 0, GetCurrentDirectory, 300
    GetCurrentDirectory = Left$(GetCurrentDirectory, InStrRev(GetCurrentDirectory, "\"))
End Function
 
et sans API :
Private Function GetCurrentDirectory() As String
    GetCurrentDirectory = App.Path
    If Right$(GetCurrentDirectory, 1) <> "\" Then
        GetCurrentDirectory = GetCurrentDirectory & "\"
    End If
End Function

'L'exemple fourni en VB6 pose probleme (la version API et sans API ne renvois pas le même resultat dans un projet non enregistré (erreur entre App.path et le dossier Courant)

'Pour faire plus simple, on peut faire :
Public Enum AppPathOrCurDir 
    AppPath = 0
    CurDir_ = 1
End Enum

Public Function GetCurrentPath(ByVal CurrentDirectory As AppPathOrCurDir) As String

    'On Choisit le répertoire à afficher (soit App.Path, soit le dossier courant utilisé par le programme)
    Select Case CurrentDirectory 
        Case 0 : GetCurrentPath = IIf(Right$(App.Path, 1) <> "\", App.Path & "\", App.Path) 'Retourne le répertoire de l'application

        Case 1 : GetCurrentPath = IIf(Right$(CurDir, 1) <> "\", CurDir & "\", CurDir) 'Retourne le répertoire courant de l'application

    End Select

End Function

MsgBox App.Path

extern GetCurrentDirectoryA

push dword adressenomdirectory;adresse où sera stocké le nom
push dword tailletampon;taille devant permettre de mettre le chemin complet +0 terminal
call GetCurrentDirectoryA
;au retour eax contient le nombre de caractères de la chaine (sans le 0 terminal)

REPRENONS L'ENONCE INITIAL
Assurer la currentDirectory dans le dossier de l'exe
lea   eax, [esp-300]
xor   edx, edx
mov   esp, eax
push  eax ; param SetCurrentDirectory
push  300
push  eax
push  0
call  GetModuleFileNameA
add   eax, esp
toSLASH:
sub   eax, 1
cmp   byte ptr[eax], '\'
jne   short toSLASH
mov   byte ptr[eax], 0
call  SetCurrentDirectoryA
add   esp, 300

MonChemin := ExtractFilePath(ParamStr(0));

char *get_current_path()
{
 return get_current_dir_name();
}

// Répertoire courant utilisé par l'exécutable :
Trace(fRepEnCours())
// Répertoire de l'exécutable lui-même :
Trace(EXEInfo(exeNom))

import sys
print sys.argv[0]

// Le moyen le plus simple sous WinDev
// Fonction WinDev Standard
Rep_en_cours est une chaîne = fRepExe()

echo getcwd();

String cur_folder = new File(getClass().getProtectionDomain().getCodeSource().getLocation().toString().substring(6)).toString();