Public Function DeleteAllFiles(ByVal FolderSpec As String) _

As Boolean

 

 

 

Dim oFs As New FileSystemObject

Dim oFolder As Folder

Dim oFile As File

 

 

If oFs.FolderExists(FolderSpec) Then

Set oFolder = oFs.GetFolder(FolderSpec)

On Error Resume Next

For Each oFile In oFolder.Files

oFile.Delete True 'setting force to true

DeleteAllFiles = oFolder.Files.Count = 0

End If

 

End Function

Public Function Izmijeni(ImeTabele As String, ZnakUBazi _

As String, Zamjena As String) As Variant

Dim Db As Database

Dim Rs As Recordset

Dim Podatak As String

Dim I As Integer

Dim n As Integer

Dim Promjena As Boolean

 

 

 

Set Db = CurrentDb()

Set Rs = Db.OpenRecordset(ImeTabele)

Do While Not Rs.EOF

  For I = 0 To Rs.Fields.Count - 1

  If Format$(Rs.Fields(I)) <> "" Then

  Podatak = Rs.Fields(I).Value

  Else

  Podatak = ""

  End If

      For n = 1 To Len(Podatak)

        If Mid(Podatak, n, 1) = ZnakUBazi Then

        Mid(Podatak, n) = Zamjena

        Rs.Edit

        Rs.Fields(I).Value = Podatak

        Promjena = True

        End If

      Next n

   Podatak = ""

  Next I

 

If Promjena = True Then

Promjena = False

Rs.Update

End If

Rs.MoveNext

Izlaz:

Exit Function

Greska:

Resume Izlaz

Kraj:

End Function