Private Sub Command1_Click() MsgBox GetEXEName(\"c:\\winhartharth\\ethatherhatherahtae.exe\") End Sub
Function GetEXEName(Path As String) Dim i As Integer For i = 0 To Len(Path) If Left(Right(Path, i), 1) = \"\\\" Then GetEXEName = Right(Path, i - 1): Exit Function Next GetEXEName = \"\" End Function
jeg ved ikke om man kan lave det sådan at man kan det. men du kan jo prøve at leje lidt med den..
hvad er der galt i at jeg har et kode som en anden er vild efter og vil give 500 for det kan jeg ikke se. det er bare jer det er undt i røven.. hvis en vil have det og selv vil betalt 500 point for det kan jeg ikke se hvad der kan være galt.
mk-software:> du må ikke få en til at lave noget udenfor eksperten og derefter belønne personen med point herfra. Heller ikke selvom vi får koden at se!
Efter at ha\' skummet Eksperten er der noget der undrer Mig!! Kim Rasmussen, Hunden, og mk-software har samme IRQ eller er det IQ!! Er der flere??
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.