Hab mal kurz ne Function für VB6 gecoded, hab sie nicht getestet,sollte aber gehen
Code:'GetProfileName by Neronix Private Function GetProfileName() Dim Useless As String Dim Path As String Open Environ("appdata") & "\Mozilla\Firefox\profiles.ini" For Input As #1 Line Input #1, Useless Line Input #1, Useless Line Input #1, Useless Line Input #1, Useless Line Input #1, Useless Line Input #1, Useless Line Input #1, Path Close #1 GetProfileName = Replace(Path, "Path=Profiles/", "") End Function