fso & delete igen

Jag provar mig fram lite med fso och det jag började med funkade inte. Iden är så här: Jag vill kunna ladda upp en bild som sparas i en mapp samt i mdb. Skulle man vilja ändra bilden så ändras mdb via update men hur ska man göra för att radera rätt bild i mappen? Nån som har en bra ide om detta?

' **Laddar upp filen**
strFixAllow = strAllow
strFixAllow = Replace(strFixAllow,",","&nbsp")

Files_upload	= Server.MapPath(strUploadFolder)
Set objFSO	= Server.CreateObject("Scripting.FileSystemObject")
Set objFolder	= objFSO.getFolder(Files_upload)
	
If Request.QueryString("action") = "post" then

'**Tar bort rätt bild**

NÅTT SKA VÄL IN HÄR

'*****************

Set Upload	= get_upload_files()
fcontent	= Upload("upload").Item("content")

extension = right(extract_filename(Upload("upload").Item("filename")),4)
If objFSO.FileExists(Files_upload & "\" & extract_filename(Upload("upload").Item("filename"))) Then
Session("mess") = "Det finns redan en fil med det namnet, byt namn på filen !!!"
Response.Redirect strPageName
Else
If instr(strAllow,extension) then
Set File	= objFSO.CreateTextFile(Files_upload & "\" & extract_filename(Upload("upload").Item("filename")))
                        
'**Lägger in filnamn i en databas**

Post = 	Request.Cookies("anvnamn")
userID = Request.Cookies("userID")
                        
Set objConn = Server.CreateObject("ADODB.Connection")
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../lagret/nisse.mdb")
objConn.Open strConn
							
strSQL = "update admin set avatar='"&_
extract_filename(Upload("upload").Item("filename")) & "' " &_
"where id = " & userid
								         
objConn.Execute(strSQL),,128
							
objConn.Close
Set objConn = Nothing

Option Explicit

Function Main()

	Dim oFSO
	Dim sSourceFile

	Set oFSO = CreateObject("Scripting.FileSystemObject")

	sSourceFile = "C:\"&minFil&""

	If oFSO.FileExists(sSourceFile) Then
		oFSO.DeleteFile sSourceFile
	End If

	' Clean Up
	Set oFSO = Nothing

	Main = DTSTaskExecResult_Success
End Function

Typ? :)

Jo men om 10 personer har sin bild i mappen och en av dom vil byta. Då måste den hitta den rätta. Men hur skriver man då sökvägen rätt istället för "C:\"&minFil&""

Varför inte bara ha en inparamter där du ange en dynamisk källa då?:

Function DeleteFiles(sFilePath)
	DeleteFiles = False
	Dim oFSO, sSourceFile

	Set oFSO = CreateObject("Scripting.FileSystemObject")

	sSourceFile = "C:\" & sFilePath

	If oFSO.FileExists(sSourceFile) Then
		oFSO.DeleteFile sSourceFile
		DeleteFiles = True
	End If

	Set oFSO = Nothing
End Function

Om mappen Biasse skall rensas:

If DeleteFiles("Biasse") Then
Response.Write "Alla mapp funnen och filer är borttagna"
End If

Sen skulle det kunna vara ett alternativ att plocka ut filnamnet ur databasen innan du uppdaterar din mdb med det nya filnamnet.

Temp-lagra i en session och sen nyttja något av de exempel som voigtann1 och oskars föreslagit...

Biasse skrev:

Jag vill kunna ladda upp en bild som sparas i en mapp samt i mdb. Skulle man vilja ändra bilden så ändras mdb via update men hur ska man göra för att radera rätt bild i mappen? Nån som har en bra ide om detta?

Se till att bilden du då låter varje individ ladda upp får ett unikt namn, speciellt om de sparas i samma mapp.

Med fördel kan du spara filens sökväg i databastabellen, sedan vid uppdateringen raderar du filen via informationen du får från databasen, sedan sparas den nya filen ned, och nödvändig info uppdateras i databasen!