• Home
 · 
• Files/File Controls/Input/Output
 · 
• The first of the 2 functions takes the filename or fullpath of filename as argument and returns the

The first of the 2 functions takes the filename or fullpath of filename as argument and returns the

The first of the 2 functions takes the filename or fullpath of filename as argument and returns the extension of the file. The second function

Rate The first of the 2 functions takes the filename or fullpath of filename as argument and returns the

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

 
Public Function GetExtension(filename as string) as string

dim i as integer
dim l as integer
dim pos as integer

l = len(filename)

for i = l to 2 step -1
  c = mid(filename,i,1)
  if c = "." then
    pos = i + 1
    exit for
  end if
next

c = mid(filename,pos,(l-pos+1))
GetExtension = c

End Function 


'module to get filetitle given full path of filename
 
Public Function GetFileTitle(filename as string) as string

dim i as integer
dim l as integer
dim pos as integer

l = len(filename)

for i = l to 2 step -1
  c = mid(filename,i,1)
  if c = "\" then
    pos = i + 1
    exit for
  end if
next

c = mid(filename,pos,(l-pos+1))
GetExtension = c

End Function