Visual Basic 6 - Salvare file nella stessa directory dell' .exe ??

Come si fa a salvare un file nella stessa directory del file eseguibile (.exe)??

scrivi il file con

percorso = app.path & "lol.txt"
Open percorso For Output As #1
print #1, ciochevuoi
close #1