Avatar billede steffansteffan Nybegynder
11. august 2004 - 18:08 Der er 8 kommentarer og
1 løsning

Slette filer fra mappe!

Nogle der ved hvordan man skriver en funktion der kan slette billeder fra en bestemt mappe, via en side online f.eks. gennem et cms system.?.
Avatar billede steffansteffan Nybegynder
11. august 2004 - 18:28 #1
Skal jeg udbyde mit spørgsmål?
Avatar billede eagleeye Praktikant
11. august 2004 - 19:20 #2
Her er noget kode, den lister alle filer i en foldre og man kan trykke på slet:


<% Response.Buffer = true %>
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY>
<%
Set fso = CreateObject("Scripting.FileSystemObject")

sletFil = Request.QueryString("fil")
if sletFil <> "" then
  Response.Write "Filen " & sletFil & " er slettet<br><br>"

  'UDKOMMENTER EVT FOR TEST
  fso.DeleteFile(sletFil)
end if
 

sub lookinfolder (foldernavn)
  Set objFolderR = fso.getFolder( foldernavn )
 
  Set objFolder = fso.getFolder( objFolderR.Path )
  Set objFiles = objFolder.Files

  for each file in objFiles
    Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME")
    Response.Write "?fil=" & server.URLEncode(File.Path) & """>Slet</a> "
   
    Response.Write File.Path & "<br>"
  next
  Set objFolder = Nothing
  Set objFiles = Nothing

  Response.Flush
  For each Folder in objFolderR.SubFolders
    call lookinfolder (Folder.path)
  next
 
  Set objFolderR = Nothing
end sub

'Angiv foldren hvor filer er i
'strPhysicalPath = Server.Mappath("/images")
strPhysicalPath = "C:\Inetpub\wwwroot\images\"
call lookinfolder (strPhysicalPath)
%>
</BODY>
</HTML>
Avatar billede eagleeye Praktikant
11. august 2004 - 19:23 #3
Du kan evt. tage et kig på svaret her, det viser billederne som små biller og man kan trykke på dem for at se dem som store. Under er et slet knap:
http://www.eksperten.dk/spm/487163
Avatar billede steffansteffan Nybegynder
11. august 2004 - 20:40 #4
I det scripts du lige har skrevet, for jeg fejl i C:\Inetpub\wwwroot\images\
hvad er det nu jeg skal skrive. Hvis jeg ligger filen i:
/wwwroot/test
kan aldrig huske det?
Avatar billede eagleeye Praktikant
11. august 2004 - 20:42 #5
Du kan skrive det sådan her:

strPhysicalPath = Server.Mappath("/test")
Avatar billede eagleeye Praktikant
11. august 2004 - 20:43 #6
/ angiver wwwroot
Avatar billede steffansteffan Nybegynder
11. august 2004 - 20:49 #7
er det så sådan her:
'strPhysicalPath = Server.Mappath("/kunder/1/billeder")
strPhysicalPath = "C:\Inetpub\wwwroot\kunder\1\billeder"

hvis jeg ligger filen i:
http://www.blablabla.dk/kunder/1/billeder/images.asp
Avatar billede eagleeye Praktikant
11. august 2004 - 21:04 #8
Hvis det ikke er din egen server kan du ikke regne med at dilerne ligger på C drevet så det skal nok være:

strPhysicalPath = Server.Mappath("/kunder/1/billeder")
'strPhysicalPath = "C:\Inetpub\wwwroot\kunder\1\billeder"


Server.Mappath laver det om til x:\folder\folder\kunder\1\billeder
Avatar billede eagleeye Praktikant
29. august 2004 - 00:08 #9
Fik du det til at virke?  Det kunne være rart med lidt feedback :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester