[Resolvido] Stripping Arquivo/Path/extensão

[xanburzum 169]

Essas rotinas podem dra um strip em um nome de arquivo de um caminho, um diretório de um caminho, e uma extensão de um caminho. Eles também podem determinar caminho root de um diretório.

 

 

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
	'---------------------------------------
	'	 ---------------------------------------