Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.
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
|Upgrading VB6 to VB.Net: Replace VB6 API's and Hidden functions with VB.Net Upgrade?||8||62|
|change vba from autofit to 13.5 width?||4||27|
|Computer crashes, following error message in event manager||5||75|
|maro to copy and paste from one worksheet to another based on a condition||11||38|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
10 Experts available now in Live!