Receive instant 1:1 support from technology experts, using our real-time conversation and whiteboard interface. Your first 5 minutes are always free.
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
|Excel Vlookup to move data back to source.||4||90|
|Zip Folders Using Chilkat Routines||1||36|
|How can I retrieve an image(png/gif/...) stored in SQL (Byte Array) with VBS and convert to BASE64||3||34|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
10 Experts available now in Live!