Prikazi cijelu temu 20.01.2021 10:38
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Application.FileSearch
Imas u arhivi zamjenu odnosno vb funkcij
https://icentar.ba/...t&id=7179

PreuzmiIzvorni kôd (Visual Basic):
  1. Function DirFajl(Putanja As String, Optional Kriterija As String = "*")
  2. On Error GoTo Error_Handler
  3.     Dim Fajl As String
  4.  
  5.     Fajl = Dir(Putanja & "*." & Kriterija)
  6.         Do While Fajl <> vbNullString
  7.             If Fajl <> "." And Fajl <> ".." Then
  8.                     Debug.Print "- " & Fajl
  9.             End If
  10.             Fajl = Dir
  11.         Loop
  12.  
  13. Error_Handler_Exit:
  14.     On Error Resume Next
  15.     Exit Function
  16.  
  17. Error_Handler:
  18.     MsgBox "The following error has occured." & vbCrLf & vbCrLf & _
  19.             "Error Number: " & Err.Number & vbCrLf & _
  20.             "Error Source: DirFajl" & vbCrLf & _
  21.             "Error Description: " & Err.Description, _
  22.             vbCritical, "An Error has Occured!"
  23.     Resume Error_Handler_Exit
  24. End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.