123 Eng

Engineering the engineers™


Latest Jobs   Forum Map

 


Home

Source Codes

Engineering Colleges

BE Students

Training  Reports (updated)

Seminar Reports (updated

Placement Papers (updated)

Forums

   Computer Science / IT

   Electronics

   Electrical

   Mechanical

   Chemical

   Civil

   CAT / MBA

   GMAT / Foreign MBA

Latest Jobs

Engineering Jobs / Technical Jobs

Management Jobs

Sitemap

About-Us

Terms of use

Displaying  Source Code(s)  
 

 
File/Path/Extension Stripping

--------------------------------------------------------------------------------

Description : These routines can strip a file name from a path, a directory from a path, and an extension from a path. They can also determine the parent directory path. They are fairly simple routines that I use in misc. places.

' ---------------------------------------
Function ParentDirectory(ByVal asDirectory)
If Len(asDirectory) = 0 Then Exit Function
asDirectory = Replace(asDirectory, "/", "")
If Right(asDirectory, 1) = "" Then
asDirectory = Left(asDirectory, Len(asDirectory) - 1)
End If
If asDirectory = "" Then Exit Function
If InStr(1, asDirectory, "") = 0 Then Exit Function
asDirectory = Left(asDirectory, InStrRev(asDirectory, ""))
ParentDirectory = asDirectory
End Function
'---------------------------------------
' ---------------------------------------
Function CurrentDirectory()
CurrentDirectory = StripDirectory(Request.ServerVariables("PATH_TRANSLATED"))
' CurrentDirectory = Server.MapPath("/")
'
End Function
'---------------------------------------
' ---------------------------------------
Function StripDirectory(ByVal asPath)
If asPath = "" Then Exit Function
asPath = Replace(asPath, "/", "")
If InStr(1, asPath, "") = 0 Then Exit Function
asPath = Left(asPath, InStrRev(asPath, ""))
StripDirectory = asPath
End Function
'---------------------------------------
' ---------------------------------------
Function StripFileName(ByVal asPath)
If asPath = "" Then Exit Function
asPath = Replace(asPath, "/", "")
If InStr(asPath, "") = 0 Then Exit Function
If Right(asPath, 1) = "" Then Exit Function

StripFileName = Right(asPath, Len(asPath) - InStrRev(asPath, ""))
End Function
'---------------------------------------
' ---------------------------------------
Function StripFileExt(sFileName)
If sFileName = "" Then Exit Function
If InStr(1, sFileName, ".") = 0 Then Exit Function
StripFileExt = Right(sFileName, Len(sFileName) - InStrRev(sFileName, ".") + 1)
End Function
--------------------------------------------------------------------------------
 

 

Contribute content or training reports / feedback / Comments
job placement papers
All rights reserved copyright 123ENG