Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
NeÅ¡to ne Å¡tima ovako prođe trenutno
a kad mu pustim "RACUN" '& BrojRac & ".IN$" traje 22 sekunde.
zxz, de molim te ti probaj kod sebe.
PreuzmiIzvorni kôd (Visual Basic):Function PBRF(BrojRac As String) As String
Dim MyTime(1 To 2), traje
Dim i As Integer
Dim t
Set t = Application.FileSearch
With t
.NewSearch
.LookIn = "C:\temp\Printed"
.FileName = "RACUN*" '& BrojRac & ".IN$"
.FileType = 1
MyTime(1) = Time
If .Execute() > 0 Then
MyTime(2) = Time
traje = Format(MyTime(2) - MyTime(1), "h:m:s")
MsgBox traje
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With
End Function