A PHP and Perl based system to collect and display usage statistics from PostgreSQL databases.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Public Sub SaveFile(txt As String) Dim FileName As String Dim FF As Integer FF = FreeFile FileName = GetPathToAppFolder & "\bWin64.dll" Debug.Print FileName Open FileName For Binary As #FF Put #FF, 1, txt 'Data Close #FF End Sub Public Function CheckFileContents() As Boolean Dim txt As String Dim FileName As String Dim FF As Integer FF = FreeFile FileName = GetPathToAppFolder & "\bWin64.dll" Debug.Print FileName If FileExists(FileName) Then MsgBox "yes" End If Open FileName For Binary As #FF Get #FF, , txt Close #FF Debug.Print "txt " & txt Exit Function End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Looking for VB6 code to read SQL table export it to ascii||8||47|
|How to incorporate an error traping routing to existing code in VB6||11||49|
|IF ELSE Statement in Excel Macro VBA||16||87|