Bugün VB6 Dosya ismi ögrenme uzantısını ögrenmeyi anlatacagım kim bilir belki birğün lazım olur.
Dosya İsmini almak için:
Örnekler:
Dosya isim alma:
Sonuç: asdvad.jpg olarak gösterilecek.
Binder gibi programlarda her dosya ile birleşmesini saglayabiliriz.
Crypterlerde kullanabiliriz.
Birçok alanda kullanılabilir diye düşünüyorum...
Dosya İsmini almak için:
PHP:
Public Function DosyaIsminiAl(TamIsim As String) As String
Dim s As String
s = Split(TamIsim, "\")(UBound(Split(TamIsim, "\")))
DosyaIsminiAl = s
End Function
PHP:
Public Function DosyaUzantisiniAL(TamIsim As String) As String
Dim s As String
s = Split(TamIsim, ".")(UBound(Split(TamIsim, ".")))
DosyaUzantisiniAL = s
End FunctionÖrnekler:
Dosya isim alma:
Sonuç: asdvad.jpg olarak gösterilecek.
Binder gibi programlarda her dosya ile birleşmesini saglayabiliriz.
Crypterlerde kullanabiliriz.
Birçok alanda kullanılabilir diye düşünüyorum...
