Avatar billede dakar2004 Nybegynder
10. marts 2007 - 17:53 Der er 7 kommentarer

opret mappe

jeg forsøger at oprette en mappe, med følgende stump kode, men uden held, hvor ligger fejlen i koden, det skal siges at det er med vilje at der er indsat et recordset da navnet på mappen kommer fra en tabel:
<%
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.CreateFolder("Server.MapPath/files/grafik/billeder/Recordset1.Fields.Item("foldername").Value")
set f=nothing
set fs=nothing
%>
Avatar billede hostgirl Nybegynder
10. marts 2007 - 18:14 #1
Prøv dette:
Dim strPath
strPath = "/files/grafik/billeder/" & Recordset1.Fields.Item("foldername").Value
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
strPath = strFolderName
If Not objFSO.FolderExists(Server.MapPath(strPath)) Then
    objFSO.CreateFolder Server.MapPath(strPath)
End If
Set objFSO = Nothing
Avatar billede hostgirl Nybegynder
10. marts 2007 - 18:16 #2
I starten kan du med stor fordelagtighed skrive 'Dim objFSO' også :) den glemte jeg i farten.
Avatar billede dakar2004 Nybegynder
10. marts 2007 - 18:31 #3
får følgende fejl:

Error Type:
Server.MapPath(), ASP 0171 (0x80004005)
The Path parameter must be specified for the MapPath method.
/priiz/admin_galleri_opret.asp, line 84

Line 84: If Not objFSO.FolderExists(Server.MapPath(strPath)) Then
Avatar billede hostgirl Nybegynder
10. marts 2007 - 18:57 #4
hmm tjek du har en streng med strPath navnet...
Avatar billede dakar2004 Nybegynder
10. marts 2007 - 19:10 #5
min kode ser således ud som du gav mig, så kan ikke lige forstå at den ikke er der:

                  <%
Dim objFSO
Dim strPath
strPath = "/files/grafik/billeder/" & Recordset1.Fields.Item("foldername").Value
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
strPath = strFolderName
If Not objFSO.FolderExists(Server.MapPath(strPath)) Then
    objFSO.CreateFolder Server.MapPath(strPath)
End If
Set objFSO = Nothing
%>
Avatar billede hostgirl Nybegynder
10. marts 2007 - 19:21 #6
okay... der er noget der ikke stemmer overens..

strPath = "/files/grafik/billeder/" & Recordset1.Fields.Item("foldername").Value
strPath = strFolderName

Det der giver ikke mening. Hvad er stien til den mappe du ønsker at oprette. Incl mappenavnet som skal oprettes?
Avatar billede hostgirl Nybegynder
10. marts 2007 - 19:32 #7
ah, er da min egen fejl.. må du undskylde... prøv dette:

  <%
Dim objFSO
Dim strPath
strPath = "/files/grafik/billeder/" & Recordset1.Fields.Item("foldername").Value
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If Not objFSO.FolderExists(Server.MapPath(strPath)) Then
    objFSO.CreateFolder Server.MapPath(strPath)
End If
Set objFSO = Nothing
%>
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
Kurser inden for grundlæggende programmering

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