Prikazi cijelu temu 08.03.2011 17:12
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Ovo ce raditi ok ako u tom direktoriju postoji uvijek samo jedan file ako ne treba prepraviti proceduru.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Provjera_G() As Boolean
  2. Dim temp As String
  3. Dim fl
  4. Dim fs
  5. Dim I
  6. Dim Putanja As String
  7.  
  8. Putanja = "C:\tmp\" 'Ovdje upisati putanju
  9. Set fs = Application.FileSearch
  10. With fs
  11.     .LookIn = Putanja
  12.     .FileType = 1
  13.     If .Execute > 0 Then
  14.         For I = 1 To .FoundFiles.Count
  15.           fl = .FoundFiles(I)
  16.         Next I
  17.     Else
  18.         MsgBox "Tne postoji fajl"
  19.         GoTo Kraj
  20.     End If
  21. End With
  22. If Right(fl, 3) = "ERR" Then
  23. Close #1
  24. Open fl For Input As 1
  25. Input #1, temp
  26. Close #1
  27. MsgBox temp
  28. Provjera_G = False
  29. Else
  30. MsgBox "Uspješno izvršavanje."
  31. Provjera_G = False
  32. End If
  33. Kraj:
  34. End Function

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.