Converting File Names

VB4’s commands for dealing with file names (such as KILL, MKDIR, andFILECOPY) support long file names without programmer interaction. A numberof the Win95 API functions will return only the short name, and you’llnotice a number of short file name entries if you’re digging through theregistration database. Therefore, occasionally you’ll need to convert ashort file name into a long file name. This function lets you pass a long file name with no ill effects. Thefile must exist for the conversion to succeed. Because this routine usesDir$ and “walks” the path name to do its work, it will not impressyou with its speed:

 Function sLongName(sShortName As String) As String	'sShortName - the provided file name, 	'fully qualified, this would usually be 	'a short file name, but can be a long file name	'or any combination of long / short parts	'RETURNS: the complete long file name, 	'or "" if an error occurs	'an error would usually indicate 	'that the file doesn't exist	Dim sTemp As String	Dim sNew As String	Dim iHasBS As Integer	Dim iBS As Integer	If Len(sShortName) = 0 Then Exit Function	sTemp = sShortName	If Right$(sTemp, 1) = "" Then		sTemp = Left$(sTemp, Len(sTemp) - 1)		iHasBS = True	End If	On Error GoTo MSGLFNnofile	If InStr(sTemp, "") Then		sNew = ""		Do While InStr(sTemp, "")			If Len(sNew) Then				sNew = Dir$(sTemp, 54) & "" & sNew			Else				sNew = Dir$(sTemp, 54)				If sNew = "" Then					sLongName = sShortName					Exit Function				End If			End If			On Error Resume Next			For iBS = Len(sTemp) To 1 Step -1				If ("" = Mid$(sTemp, iBS, 1)) Then					'found it					Exit For				End If			Next iBS			sTemp = Left$(sTemp, iBS - 1)		Loop		sNew = sTemp & "" & sNew	Else		sNew = Dir$(sTemp, 54)	End IfMSGLFNresume:	If iHasBS Then		sNew = sNew & ""	End If	sLongName = sNew	Exit FunctionMSGLFNnofile:	sNew = ""	Resume MSGLFNresumeEnd Function
Share the Post:
Share on facebook
Share on twitter
Share on linkedin


The Latest

microsoft careers

Top Careers at Microsoft

Microsoft has gained its position as one of the top companies in the world, and Microsoft careers are flourishing. This multinational company is efficiently developing popular software and computers with other consumer electronics. It is a dream come true for so many people to acquire a high paid, high-prestige job

your company's audio

4 Areas of Your Company Where Your Audio Really Matters

Your company probably relies on audio more than you realize. Whether you’re creating a spoken text message to a colleague or giving a speech, you want your audio to shine. Otherwise, you could cause avoidable friction points and potentially hurt your brand reputation. For example, let’s say you create a

chrome os developer mode

How to Turn on Chrome OS Developer Mode

Google’s Chrome OS is a popular operating system that is widely used on Chromebooks and other devices. While it is designed to be simple and user-friendly, there are times when users may want to access additional features and functionality. One way to do this is by turning on Chrome OS