Meraba arkadaşlar
Sizlere Ud Metot Veriyorum.
Kasper vs vs biçok anti geçebilirsiniz tabiki ek olarak bikaç şey yapabilirsiniz.
Geliştirmek size kalmış.
Örnek Kullanım
App.path & "\" & App.ExeName & ".exe" yi
Olarak yazabilirsiniz.
Sizlere Ud Metot Veriyorum.
Kasper vs vs biçok anti geçebilirsiniz tabiki ek olarak bikaç şey yapabilirsiniz.
Geliştirmek size kalmış.
Kod:
[COLOR="Green"]'------------------------------------
'Kodlayan : Harmmy
'İletişim: [email protected]
'Tarih: 21 Şubat 2013
'Çalışan Sistemler: All windows
'------------------------------------[/COLOR]
[COLOR="RoyalBlue"]Private Function[/color] BenKimim([COLOR="RoyalBlue"]ParamArray[/color] Kimsin() [COLOR="RoyalBlue"]As Variant[/color])[COLOR="RoyalBlue"] As String[/color]
[COLOR="RoyalBlue"]Debug.Print UBound[/color](Kimsin())
[COLOR="RoyalBlue"]Dim[/color] i [COLOR="RoyalBlue"]As Long[/color]
[COLOR="RoyalBlue"]Dim[/color] Kimmisogren [COLOR="RoyalBlue"]As String[/color]
BenKimim = ""
Kimmisogren = ""
[COLOR="RoyalBlue"]For[/color] i = 0[COLOR="RoyalBlue"] To UBound[/color](Kimsin())
Kimmisogren = Kimsin(i)
BenKimim = BenKimim & Kimmisogren
[COLOR="RoyalBlue"]Next[/color] i
[COLOR="RoyalBlue"]End Function[/color]Örnek Kullanım
App.path & "\" & App.ExeName & ".exe" yi
Kod:
App.path & [COLOR="RoyalBlue"]BenKimim[/color]("\") & App.ExeName & [COLOR="RoyalBlue"]BenKimim[/color](".","e","x","e")
