(Resolvido) Renomear arquivo do upload com FSO

[-#Alea#-]

Olá galera,

Tenho um sistema que faz upload de arquivos em PDF, mas tenho a necessidade de alterar o nome do arquivo onde coloco o Codigo do Sócio, Código do Cliente e data a fente do nome do arquivo.

Pelo que eu entendi isso faria funcionar.

caminho = Caminho_upload&"\"&upload.ShortFileName

        nome_arquivo = upload.ShortFileName

        Set renomear_arquivo = Server.CreateObject("Scripting.FileSystemObject")

        Set arquivo = renomear_arquivo.GetFile(caminho)
        
        arquivo.CopyFile nome_arquivo, id_socio&"_"&id_cliente&"_"&data&"_"&nome_arquivo, true  'LINHA QUE DA O ERRO

        arquivo.DeleteFile nome_arquivo
        
        Set renomear_arquivo=Nothing

        Set arquivo = Nothing

Erro: Object doesn't support this property or method: 'CopyFile'

valeu.

Editado Outubro 6, 2009 por Jonathan Queiroz
Adcionar tag's (Jonathan)

[-#Alea#-]

Fiz assim e funcionou.

Set fso = CreateObject("Scripting.FileSystemObject")

           fso.MoveFile Caminho_upload&"\"&upload.ShortFileName, Caminho_upload&"\"&id_socio&"_"&id_cliente&"_"&data1&"_"&upload.ShortFileName
        
        Set fso=Nothing