Shell....SaveAS

[chiuso2]

Hi
i need to open a file and then to SaveAs it
OpenFile:
Shell "C:\windows\notepad.exe C:\MyFile"
Anybody knows how to Save it as txt file via code?
Maybe with API?
Thanks in advance
Mario

 

[susanhawk]

Try this:

stFile = "ThisFile.txt"
StoreFile (stFile)

Private Sub StoreFile(stFilename As String)
Dim stPutFile As String
stPutFile = "C:\SomeFolder\SomeOtherFolder\" & stFilename
Open stPutFile For Output As #1
DoCmd.Quit acSaveYes
MsgBox "Your file " & stFilename & " has been saved", vbOKOnly, "File saved"
End Sub