Apagando Arquivos (Imagens da pasta Upload).

[fabiosc80 0]

te mandei uma MP se der responde...

<{POST_SNAPBACK}>

Te Respondi La

[fabiosc80 0]

PESSOAL,

 

ESTOU QUASE CHORANDO DE EMOÇÃO AQUI.

 

EU CONSEGUIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII.

 

HUAHUAHUAHUAHUAHUAHUAHUA

 

ABAIXO SEGUE O CÓDIGO PARA QUE AMBOS POSSAM DESFRUTAR DELE.

 

NESTE CÓDICO ELE APAGA PEGANDO O NOME DO ARQUIVO PELO BANCO.

 

'Aqui começa o select para poder pegar o nome do arquivo que vai ser apagado diretório UPLOADSQL = "Select * from ImagemEventos where CodigoImagem =" &CodigoSet TB2 = BC.Execute(SQL)diretorio = Server.MapPath("Upload")'Response.Write(diretorio)'response.end'Cria o objeto FileSystemObjectSet ObjFS = Server.CreateObject("Scripting.FileSystemObject")Set objFolder = ObjFS.GetFolder(diretorio)ArquivoDel = diretorio &"\"& TB2("Imagem")'Aqui apaga o Arquivo do Diretório UPLOADSet FSO= Server.CreateObject("Scripting.FileSystemObject")FSO.DeleteFile (ArquivoDel) true

AGORA VOU FAZER ELE APAGAR MAIS DE UM AO MESMO TEMPO.

FUI...