Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Function ImeFajla(PutanjaF As String) As String '******************************************* 'Ime: ImeDir (Function) 'Sadržaj: Odvaja ime fajla od putanje 'Autor: ZXZ 'Datum: 09 01, 2010, 11:36:53 'Adresa: Tuzla BiH 'Email: zxz@icentar.ba 'Ulazni parametri:Putanja 'Izlazni parametri:Zadnj dir od putanja '******************************************* Dim X As Integer Dim Putanja As String On Error Resume Next Putanja = PutanjaF Start: Do Until Right$(Putanja, 1) = "\" Putanja = Left$(Putanja, Len(Putanja) - 1) Loop ImeFajla = Mid(PutanjaF, Len(Putanja) + 1) End Function Function Zaustavi(Trajanje) Dim VRIJEME DoEvents Trajanje = Trajanje + Timer() Start: VRIJEME = Timer() If VRIJEME < Trajanje Then GoTo Start End Function Function BrisiFile(Putanja As String) Dim fs Dim I As Integer Set fs = Application.FileSearch With fs .LookIn = Putanja .FileType = 1 If .Execute > 0