norm42
07-24-2013, 10:49 AM
After opening a text file with the following code:
Sub TestTXTFileOpen()
Dim fileToOpen As String
fileToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt")
Shell ("C:\Windows\notepad.exe " & fileToOpen)
End Sub
I want to be able to save fileToOpen as unicode. I'm stumped on this so far.
Sub TestTXTFileOpen()
Dim fileToOpen As String
fileToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt")
Shell ("C:\Windows\notepad.exe " & fileToOpen)
End Sub
I want to be able to save fileToOpen as unicode. I'm stumped on this so far.