Click here to Skip to main content
14,733,443 members
Articles » Languages » VBScript » General
Tip/Trick
Posted 23 Nov 2009

Tagged as

Stats

21.5K views
2 bookmarked

Get DOS 8.3 short name with VbScript

Rate me:
Please Sign up or sign in to vote.
0.00/5 (No votes)
3 May 2010CPOL
Create a new text file called shortname.vbs:Open in Notepad and paste the following code in it:set fso = CreateObject("Scripting.FileSystemObject") strLongName = Wscript.Arguments(0)strShortName = "Invalid File/Folder - (" & strLongName & ")"Set fsoFile = NothingOn Error Resume...
Create a new text file called shortname.vbs:
Open in Notepad and paste the following code in it:

set fso = CreateObject("Scripting.FileSystemObject") 

strLongName = Wscript.Arguments(0)
strShortName = "Invalid File/Folder - (" & strLongName & ")"
Set fsoFile = Nothing

On Error Resume Next

Set fsoFile = fso.GetFile(strLongName)

if Err.number <> 0 then
	Set fsoFile = fso.GetFolder(strLongName)
end if

if fsoFile is not nothing then
	strShortName = fsoFile.ShortPath
end if
Wscript.Echo strShortName


Run the script using cscript:

cscript shortname.vbs "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe"

You will then get the following output:
C:\PROGRA~1\Adobe\READER~1.0\Reader\AcroRd32.exe

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Share

About the Author

Riaan Lehmkuhl
Software Developer adhdForge
South Africa South Africa
Me, a disorder of the brain that results in a disruption in a person's thinking, mood, and ability to relate to others.

Comments and Discussions

 
-- There are no messages in this forum --