• Home
 · 
• Files/File Controls/Input/Output
 · 
• A code that enables saving in long file names format in Visual Basic 3.0. See more info in the code

A code that enables saving in long file names format in Visual Basic 3.0. See more info in the code

A code that enables saving in long file names format in Visual Basic 3.0. See more info in the code or email the author.

Rate A code that enables saving in long file names format in Visual Basic 3.0. See more info in the code

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'tries to create a file, for example OPEN "C:\YADAYADAYADA.TXT" FOR OUTPUT AS
'1, the file name will be shortened to eight character format: "C:\YADAYADA.TXT"
'This code snippet exploits the fact that the command prompt under XP still
'allows long file names, and hence renames the saved file under the command
'prompt after saving it. Just replace yadayada.ini with the first 8 
'characters of what your long filename would be.
'
'By SW 2006 -- [email protected] -- long live Trotskyism
'and Workers Power!

'Don't use any path for the NewFileName
filepath="C:\"
OldFileName = filepath & "yadayada.ini"
NewFileName = "yadayadayada.ini"
Open OldFileName For Output As #1
Print #1, "Here goes the"
Print #1, "info for the OldFileName file"
Print #1, "that you want to save"
Close 1

'Creates a Batch file to rename the file to its long file name
Open "C:\buk.bat" For Output As #2
Print #2, "@ren %1 %2"
Close 2

x = Shell("C:\buk.bat " & OldFileName & " " & NewFileName)

MsgBox "Saved " & filepath & newfilename & " successfully."

'If you want to, you can of course delete the Batch file that renames the
'file, but VB is quicker than the Batch, so if you just put the delete
'command right after the execution of it, it will be deleted before it
'can be executed! So put it at the close of the form or whatever:
'Kill "C:\buk.bat"