5 svar · 492 visningar · startad av Biasse
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,","," ")
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!
