• Home
 · 
• Files/File Controls/Input/Output
 · 
• Make a long file name from a short. This snippet remplace other code from this site (origin Microso

Make a long file name from a short. This snippet remplace other code from this site (origin Microso

Make a long file name from a short. This snippet remplace other code from this site (origin Microsoft example do'nt works at all)

API Declarations


DefInt A-Z
REM Subject: Code Snippet
REM Date: Thu, 1 Jun 2000 15:55:41 -0400
REM From: [email protected]
REM To: <VbCode.com>
Rem ©® The Hook Software
Rem ®© [email protected]
REM Task: Get a long file name from a short file name
REM Author: Bernt Figaro
REM Author's email:[email protected]
REM Date Submitted: 6/2/2000
REM Compatibility: VB 6,VB 5
REM
REM Variables

REM Code:
REM Remplace Microsoft Knowledgebase Article ID: Q163227
REM This code above do'nt works






Rate Make a long file name from a short. This snippet remplace other code from this site (origin Microso

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

DefInt A-Z
REM Subject: Code Snippet
REM Variables
Dim Path As String

Private Function GetLongFilename(ByVal sShortName As String) As String
Path=App.Path
If Right$(Path,1)<>"\" then path=path+"\"
GetLongFilename = Dir(Path & sShortName)
REM This code works
End Function