[Resolvido] Dundas.Upload.2

[Igor Meireles 0]

Como pegar a extensão do arquivo antes de fazer o upload do mesmo ?

 

 

extensao = ObjFso.GetExtensionName(objUpload)

?

[xanburzum 169]

você pode usar uma destas funções, Estas rotinas podem retirar um nome de arquivo de um caminho, um diretório de um caminho, e uma extensão de um arquivo. Eles também podem determinar o caminho do diretório pai. Eles são bastante simples que eu uso em varios lugares.

 

	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

 

ou mais ismples ainda usando o GetExtensionName do FSO

Set ObjFso = Server.CreateObject("Scripting.FileSystemObject")
Response.Write ObjFso.GetExtensionName("C:\seu arquivo.ext")

[Igor Meireles 0]

você pode usar uma destas funções, Estas rotinas podem retirar um nome de arquivo de um caminho, um diretório de um caminho, e uma extensão de um arquivo. Eles também podem determinar o caminho do diretório pai. Eles são bastante simples que eu uso em varios lugares.

 

	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

 

ou mais ismples ainda usando o GetExtensionName do FSO

Set ObjFso = Server.CreateObject("Scripting.FileSystemObject")
Response.Write ObjFso.GetExtensionName("C:\seu arquivo.ext")

 

MAS EU QUERO PEGAR A EXTENSÃO DO ARQUIVO ANTES DE FAZER O UPLOAD !

 

BRIGADO

 

VLW JA CONSEGUI . .. objUpload.GetFileExt()