Private Sub Komut427_Click()
Dim dosyaac As String
dosyaac = "D:\JEOTEKNİK ETÜT DOSYALAR\PDF\" _
& Right(DosyaYolu1, Len(DosyaYolu1) - InStrRev(DosyaYolu1, "\"))
Call fHandleFile(dosyaac, 1)
End Sub
#5
Komut427 tıklanma olayını aşağıdaki ile değiştir.
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
ustalar konuşunca çıraklar keser sesi.
