Új hozzászólás Aktív témák

• #31761 bteebi veterán bteebi #31760

  Új Válasz 2016-06-12 23:29:24 #31761

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  bteebi

  veterán

  válasz bteebi #31760 üzenetére

  Közben jobb esetben már közeledek a megoldáshoz, bár majd csak holnap fogom tudni tesztelni.

  While (file <> "")
If Mid(file, 5, 6) < azonosito And Mid(file, InStrRev(file, "szam") + 4, 6) Then
elso = Mid(file, 5, 6)
pageno = 1 + Int((azonosito - elso) / 10)
End If
file = Dir
Wend

Új hozzászólás Aktív témák