Public Function SearchFile()
'*******************************************
'Ime: SearchFile (Function)
'Sadržaj: Trazenje fajlova na disku
'Autor: ZXZ
'Datum: rujan 05, 2008, 03:26:54
'Adresa: Tuzla BiH
'Email:
[email protected]
'Ulazni parametri:
'Izlazni parametri:
'*******************************************
Dim ImeFilea As String
Dim a As String
ImeFilea = "NekoIme??" '?? su djokeri moze biti bilo sta
With Application.FileSearch
.NewSearch
.LookIn = "E:\Neki\"
'.SearchSubFolders = True ' trazi i u pod direktorijima
.FileName = ImeFilea
.FileType = 1 ' tip fajla misli se na exstenziju
a = .Execute
a = Format(a, "00")''Znaci da moze brojati od 1-99 sufiks brojeva na ime
End With ' kraj opcija
'Ovdje upisi tvoj file pod imenom imefilea & a
End Function
zxz