FreeASPUpload

[alex_rlima 0]

Pessoal,Estou utilizando o FreeASPUpload e gostaria de saber se existe uma maneira de renomear um arquivo antes de grava-lo na pasta de destino. Alguém poderia me ajudar?Muito Obrigado.PS: Se precisar posso passar o código.

[Mário Monteiro 179]

cara acho que não dá...pelo menos nunca vi...você pode mudar com FSO depois...

[alex_rlima 0]

Estou analisando o código e a parte que ele salva o arquivo é essa:function SaveFiles Dim Upload, fileName, fileSize, ks, i, fileKey, id id=13 Set Upload = New FreeASPUpload Upload.Save(uploadsDirVar & "\" & id & "_a") ' If something fails inside the script, but the exception is handled If Err.Number<>0 then Exit function SaveFiles = "" ks = Upload.UploadedFiles.keys if (UBound(ks) <> -1) then SaveFiles = "<B>Files uploaded:</B> " for each fileKey in Upload.UploadedFiles.keys SaveFiles = SaveFiles & Upload.UploadedFiles(fileKey).FileName & " (" & Upload.UploadedFiles(fileKey).Length & " B) " next else SaveFiles = "O nome do arquivo especificadono formulario de upload não corresponde a um arquivo válido no sistema." end ifend functionAonde eu poderia incluir o FSO para mudar isso?

[Mário Monteiro 179]

e qualquer lugar apos salvar...

[alex_rlima 0]

Vou tentar incluir FSO modificando o nome depois de salvo.

[Mário Monteiro 179]

qualquer duvida vai no topico pendurado de duvidas frequentes que tem duas excelentes referencias FSO...

[alex_rlima 0]

Valeu cara.

[ProgramadorASP 0]

Sera que tem como você passar o codigo, estou com um problema parecido com esse!??!!?

 

http://forum.imasters.com.br/public/style_emoticons/default/bye1.gif

[Mário Monteiro 179]

Sera que tem como você passar  o codigo, estou com um problema parecido com esse!??!!?

 

http://forum.imasters.com.br/public/style_emoticons/default/bye1.gif

no seu outro post postei o caminho do freeaspupload...

[alex_rlima 0]

marioufpa,A linha de comando em FSO para modificar o nome do arquivo seria essa?Set FSO = Server.Createobject("Scripting.FilesystemObject")FSO.MoveFile "nome do diretório\nome do arquivo","nome do diretório\id_nome do arquivo"Att.

[Mário Monteiro 179]

nãoeh FSO.name ai você pode o nome antigo e novo nomevou pesquisar um exemplo e posto aqui...

[alex_rlima 0]

Beleza vou testar. Se você conseguir um exemplo fica masi fácil.Valeu.

[Mário Monteiro 179]

ta aqui

 

 

ASP

[*]<%

[*]Set fso = CreateObject("Scripting.FileSystemObject")

[*]Set fileObject = fso.GetFile(Server.MapPath("\chris\") & "\myfile.txt")

[*]

[*]Response.Write fileObject.Name

[*]fileObject.Name = "myfile2.txt"

[*]Response.Write fileObject.Name

[*]

[*]Set fileObject = Nothing

[*]Set fso = Nothing

[*]%>

[alex_rlima 0]

marioufpa,Uma outra dúvida. Tudo que li sobre FSO está diretamente relacionado a arquivos .txt esse código pode ser aplicado em arquivos .jpg?Att.PS: Vou testar o código que me mandou.

[Mário Monteiro 179]

pode sim cara...

[alex_rlima 0]

CarlosNet,Estou escrevendo o código passado pelo marioufpa mas estou com algumas dúvidas. Será que você pode me ajudar?Att.Alex

[alex_rlima 0]

Alguém pode me ajudar com o código FSO abaixo?

 

ASP

[*]

[*]<%

[*]Set fso = CreateObject("Scripting.FileSystemObject")

[*]Set fileObject = fso.GetFile(Server.MapPath("\chris\") & "\myfile.txt")

[*]

[*]Response.Write fileObject.Name

[*]fileObject.Name = "myfile2.txt"

[*]Response.Write fileObject.Name

[*]

[*]Set fileObject = Nothing

[*]Set fso = Nothing

[*]%>

[*]

 

Gostaria de inclui-lo depois dessa função:

 

ASP

[*]

[*]function SaveFiles

[*] Dim Upload, fileName, fileSize, ks, i, fileKey, id

[*] id=13

[*] Set Upload = New FreeASPUpload

[*] Upload.Save(uploadsDirVar)

[*]

[*] ' If something fails inside the script, but the exception is handled

[*] If Err.Number<>0 then Exit function

[*]

[*] SaveFiles = ""

[*] ks = Upload.UploadedFiles.keys

[*] if (UBound(ks) <> -1) then

[*] SaveFiles = "<B>Files uploaded:</B> "

[*] for each fileKey in Upload.UploadedFiles.keys

[*] SaveFiles = SaveFiles & Upload.UploadedFiles(fileKey).FileName & " (" & Upload.UploadedFiles(fileKey).Length & " B) "

[*] next

[*] else

[*] SaveFiles = "O nome do arquivo especificadono formulario de upload não corresponde a um arquivo válido no sistema."

[*] end if

[*]end function

[*]

[Mário Monteiro 179]

é so colocar o caminho corret aquiSet fileObject = fso.GetFile(Server.MapPath("\chris\") & "\myfile.txt") e o novo nome aquifileObject.Name = "myfile2.txt" se não for pra mostrar os nomes tira os response.write...