Dim dbfilepath As String
dbfilepath = db.filepath
Dim valueLength As Integer
valueLength = Len(db.filepath)
Dim dbfilepath2 As String
Dim character As String
For i= 1 To valueLength Step 1
character = Mid(db.filepath,i,1)
If character="\" Then
dbfilepath2 = dbfilepath2 & "/"
Else
dbfilepath2 = dbfilepath2 & character
End If
Next