In Tools >> Options >> LibreOffice Base >> Databases
, Registered Databases
box shows all registered embedded databases. That is great.
I adapted the code from this,
Sub CheckExistingFile
If DOESFILEEXIST("file:///home/fedora002/Documents/LibreOfficeAskLibreOffice/0008/0008.odb") Then
Msgbox "File already exists."
Else
Msgbox "File does not exist."
End If
End Sub
Function DOESFILEEXIST(sFullPath As String) As Boolean
Dim sFileUrl As String
sFileURL = ConvertToUrl(sFullPath)
If FileExists(sFileURL) Then
DOESFILEEXIST = True
Else
DOESFILEEXIST = False
End If
End Function
fedora002
is one of users in our office. How can I get the other username of other computer in order to replace fedora002
in the code ?