List og opret filer fra mappe i DB

Prøv dette:

<%

If request.Querystring("dir") <> "" Then
  dir = "/" & request.Querystring("dir")
else
  dir = "/"
End if

Dim myFso
Set myFso = Server.CreateObject("Scripting.FileSystemObject")

Dim myFolder
Set myFolder = myFso.GetFolder(Server.MapPath(dir))

Dim files
Set files = myFolder.Files

Set rs = Server.CreateObject("ADODB.RecordSet")
Set Conn = Server.CreateObject("ADODB.Connection")
strDSN = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("database.mdb")
Conn.Open strDSN

strSQL = "SELECT * FROM filer"

rs.open strSQL, conn, 2, 2


For Each file in files
    rs.addNew
    rs("filnavn") = file.Name
    rs("filtype") = file.Type
    rs("filstorrelse") = file.Size
Next

rs.update

rs.Close
set rs = nothing
Conn.close
set Conn = nothing
Set files = Nothing
Set subFolders = Nothing
Set myFolder = Nothing
Set myFso = Nothing

%>

Det skal naturligvis lige rettes til.

Jeg har leget, at der er en database ved navn database.mdb.
I denne database er en tabel, ved navn filer, som indeholder felterne id (autonummerering) (fordi et id felt altid er godt at have), filnavn (tekst), filtype (tekst) og filstorrelse (tal).

Det vil måske være en fordel at tilføje et

response.Write "filerne er nu tilføjet i databasen"

nederst i scriptet, så du kan se, at den har gjort noget.

Det sidste du lige skal være opmærksom på er, at der tilføjes en ny record for hvert loop.
Det vil sige, at hvis du kører scriptet to gange bliver filerne ikke overskrevet, men derimod tilføjet igen.
Det kan der dog gøres noget ved, hvis det skulle være nødvendigt.

tak det virker smukt!

Ja du må gerne rette det så den altid overskriver.

Værsågod.
Nu overskriver den, hvis der findes en fil med samme filnavn i db'en, og hvis ikke, så opretter den en ny post.

<%

If request.Querystring("dir") <> "" Then
  dir = "/" & request.Querystring("dir")
else
  dir = "/"
End if

Dim myFso
Set myFso = Server.CreateObject("Scripting.FileSystemObject")

Dim myFolder
Set myFolder = myFso.GetFolder(Server.MapPath(dir))

Dim files
Set files = myFolder.Files

Set rs = Server.CreateObject("ADODB.RecordSet")
Set Conn = Server.CreateObject("ADODB.Connection")
strDSN = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("database.mdb")
Conn.Open strDSN

For Each file in files
strSQL = "SELECT * FROM filer WHERE filnavn = '" & file.name & "'"
rs.open strSQL, conn, 2, 2
If (rs.eof or rs.bof) then
    rs.addNew
end if
    rs("filnavn") = file.Name
    rs("filtype") = file.Type
    rs("filstorrelse") = file.Size
rs.update
rs.Close
Next

response.Write "Databasen er nu opdateret"

set rs = nothing
Conn.close
set Conn = nothing
Set files = Nothing
Set subFolders = Nothing
Set myFolder = Nothing
Set myFso = Nothing

%>

hmm...nu får jeg denne fejl:

Microsoft JET Database Engine (0x80040E09)
Databasen eller objektet er skrivebeskyttet og kan ikke opdateres.
/c64mos/games/update.asp, line 37

sært, det virkede før. Sikker IIS problemer :/

Prøv at højreklik på din database og gå i properties.
Hvis read-only er slået til, så slå den fra.
Det burde det naturligvis ikke være, når du nu lige har brugt den, men mærkeligere ting er sket, så måske...

Det er fikset...lige et sidst spørgsmål...jeg har asp filen liggende i /c64 og filerne liggende i /c64/games/

Skal det så ikke se sådan ud:

If request.Querystring("dir") <> "" Then
  dir = "/games" & request.Querystring("dir")
else
  dir = "/games"
End if

?

Jeg får nemlig denne fejl:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A004C)
Stien blev ikke fundet
/c64mos/update.asp, line 23

ah det skulle være "./games"..

Tak skal du ha...dette er en luksus :)

Prøv

If request.Querystring("dir") <> "" Then
  dir = "games/" & request.Querystring("dir")
else
  dir = "games/"
End if

eller

det kan også være din sti skal gå ud fra roden.

Hvis du altid anvender den samme mappe, kan du også nøjes med:

  dir = "games/"

Det andet er kun hvis man vil kunne skifte mappe.


Jeg går i seng nu, men vender tilbage imorgen.
Prøv at lege lidt med stierne, så skal du nok finde ud af det.

OK :)
Og velbekomme :)