søg efter mappenavn på lokal server

Ja, det kan man skam :)

<%strSearch = "mappe1"

strPath = Server.MapPath(Request.ServerVariables("PATH_INFO"))

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPath)
Set objFolder = objFile.ParentFolder
For Each subfolder In objFolder.SubFolders
    If subfolder.name = strSearch Then
        'gør noget
    End If
Next
Set objFS = Nothing%>

lad os sige at jeg har en form hvor man fx. skriver test og så søger i en mappe om den eksistere, hvordan skal jeg så bruge den funktion?

<form action="?search=true" method="post">
  Mappenavn: <input type="text" name="folder"><br>
  Sti: <input type="text" name="path"><br>
  <input type="submit" value="Search">
</form>

<%If Request.Querystring("search") Then
  strSearch = Request.Form("folder")
  strPath = Request.Form("path")

  Set objFSO = CreateObject("Scripting.FileSystemObject")
  If objFSO.FolderExists(Server.MapPath(Request.ServerVariables("PATH_INFO")&strPath)) Then
      Response.Write "Mappen blev fundet!"
  End If
  Set objFSO = Nothing
End If%>

formen skal søge i den samme mappe altid og det skal kun være muligt at skrive et navn man vil søge på

det var ikke meget hjælp der var og hente her.

Jamen så er det bare sådan her:
--------------------------------------
<form action="?search=true" method="post">
  Navn: <input type="text" name="folder"><br>
  <input type="submit" value="Search">
</form>

<%If Request.Querystring("search") Then
  strSearch = Request.Form("folder")
  strPath = ""

  Set objFSO = CreateObject("Scripting.FileSystemObject")
  If objFSO.FolderExists(Server.MapPath(Request.ServerVariables("PATH_INFO")&strPath)) Then
      Response.Write "Mappen blev fundet!"
  End If
  Set objFSO = Nothing
End If%>
---------------------------------------
Lige nu er variablen strPath lig med "", men hvis du en dag vil ændre mappen, som der søges i, kan du bare skrive mappen heri.

ok så, forklar mig lige hvorfor jeg bliver sendt til min forside når jeg har søgt?

og en anden ting, uanset om mappen eksistere så kommer der til at stå det her i adresselinjen: default.asp?search=true

Hvad hedder din søgefil?
Du skal rette dette:
<form action="fil.asp?search=true" method="post">

Ja, der skal stå default.asp?search=true i adresselinjen. Det fortæller koden, at der skal søges af asp-filen.

jeg har ikke lavet en en søgefil, jeg bruger samme fil som formen er i.

ja, hvad hedder den fil?

filen hedder bestil men jeg bruger case i min tabel så filen kommer frem på denne her måde default.asp?side=bestil

Hmmm.. ok, så du bruger allerede querystring. Så brug i stedet:
---------------------------------------
<form name="foldersearch" action="?bestil" method="post">
  Navn: <input type="text" name="folder"><br>
  <input type="submit" name="submit" value="Search">
</form>

<%If Request.Form("submit") = "submit" Then
  strSearch = Request.Form("folder")
  strPath = ""

  Set objFSO = CreateObject("Scripting.FileSystemObject")
  If objFSO.FolderExists(Server.MapPath(Request.ServerVariables("PATH_INFO")&strPath)) Then
      Response.Write "Mappen blev fundet!"
  End If
  Set objFSO = Nothing
End If%>

<form name="foldersearch" action="?bestil" method="post">
skal selvfølgelig være:
<form name="foldersearch" action="?side=bestil" method="post">

nu sker der så ikke noget uanset om mappe findes eller ej.

Ah, ja.
<%If Request.Form("submit") = "submit" Then
skal være:
<%If Request.Form("submit") = "search" Then

der sker stadig ikke noget, vi er enige om det skal være sådan her ik'?

<form name="foldersearch" action="?side=bestil" method="post">
  Søg: <input type="text" name="folder">
  mappe<input name="path" type="hidden" value="mappe">&nbsp
  <input type="submit" value="Søg">
</form>

<%
If Request.Form("submit") = "search" Then
  strSearch = Request.Form("folder")
  strPath = "c:\Inetpub\"

  Set objFSO = CreateObject("Scripting.FileSystemObject")
  If objFSO.FolderExists(Server.MapPath(Request.ServerVariables("PATH_INFO")&strPath)) Then
      Response.Write "Mappen blev fundet!"
  End If
  Set objFSO = Nothing
End If
%>

Umiddelbart ser det rigtigt ud. Måske behøver du ikke:
strPath = "c:\Inetpub\"
Så du kan prøve at rette det til:
strPath = ""

Prøv også:
-----------------------------------
<form name="foldersearch" action="?side=bestil" method="post">
  Søg: <input type="text" name="folder">
  mappe<input name="path" type="hidden" value="mappe">&nbsp
  <input type="submit" value="Søg">
</form>

<%
If Request.Form("submit") = "search" Then
  strSearch = Request.Form("folder")
  strPath = "c:\Inetpub\"

  Set objFSO = CreateObject("Scripting.FileSystemObject")
  If objFSO.FolderExists(Server.MapPath(Request.ServerVariables("PATH_INFO")&strPath)) Then
      Response.Write "Mappen blev fundet!"
  Else
      Response.Write "Mappen blev ikke fundet!"
  End If
  Set objFSO = Nothing
End If
%>

Med den sidste kode, jeg skrev, fortæller den os også, hvis der IKKE blev fundet nogen mappe. Hvis den stadig intet skriver, så ved vi, at den slet ikke går ind i if-sætningen.

den skriver stadig ikke noget

Hov, nej, jeg så ikke, du havde rettet submittens value til Søg. Med følgende kode, er det ligemeget, hvad du kalder den:
--------------------------------------
<form name="foldersearch" action="?side=bestil" method="post">
  Søg: <input type="text" name="folder">
  mappe<input name="path" type="hidden" value="mappe">&nbsp
  <input type="submit" value="Søg">
</form>

<%
If Request.Form("submit") <> "" Then
  strSearch = Request.Form("folder")
  strPath = "c:\Inetpub\"

  Set objFSO = CreateObject("Scripting.FileSystemObject")
  If objFSO.FolderExists(Server.MapPath(Request.ServerVariables("PATH_INFO")&strPath)) Then
      Response.Write "Mappen blev fundet!"
  Else
      Response.Write "Mappen blev ikke fundet!"
  End If
  Set objFSO = Nothing
End If
%>

der bliver stadig ikke skrevet noget, hverken Mappen blev fundet!, eller Mappen blev ikke fundet!

smutter i seng, vender tilbage i morgen eller så snart derefter du har svaret.

Ahr, der mangler også lige et name på submit-knappen:
<input type="submit" name="submit" value="Søg">

det hjælper ikke meget at give knappen et navn.

Jeg får derimod denne her fejl

Server.MapPath() error 'ASP 0173 : 80004005'

Invalid Path Character

/bestil.asp, line 22

An invalid character was specified in the Path parameter for the MapPath method.

21) Set objFSO = CreateObject("Scripting.FileSystemObject")
22) If objFSO.FolderExists(Server.MapPath(Request.ServerVariables("PATH_INFO")&strPath)) Then
23) Response.Write "Mappen blev fundet!"

Hvad skriver du i strPath?

strPath = "c:\Inetpub\"

jeg har lige fjernet det imellem " " og nu virker det

næsten, jeg får af vide at mappen ikke findes ved at søge på en navn der ikke er der, men hvis mappen findes kommer der ikke nogen besked om det.

Ok, smid lige hele koden igen.

<form name="foldersearch" action="?side=bestil" method="post">
  søg: <input type="text" name="folder">
  mappe<input name="path" type="hidden" value="mappe">&nbsp
  <input type="submit" name="submit" value="Søg">
</form>

<%
If Request.Form("submit") <> "" Then
  strSearch = Request.Form("folder")
  strPath = ""

  Set objFSO = CreateObject("Scripting.FileSystemObject")
    If objFSO.FolderExists(Server.MapPath(Request.ServerVariables("PATH_INFO")&strPath)) Then
        Response.Write "Mappen blev fundet!"
    Else
        Response.Write "Mappen blev ikke fundet!"
    End If
  Set objFSO = Nothing
End If
%>

Følgende er afprøvet og virker:
--------------------------------
<form name="foldersearch" method="post">
  søg: <input type="text" name="folder">
  mappe<input name="path" type="hidden" value="mappe">&nbsp
  <input type="submit" name="submit" value="Søg">
</form>

<%
If Request.Form("folder") <> "" Then
  strSearch = Request.Form("folder")
  strPath = ""

  Set objFSO = CreateObject("Scripting.FileSystemObject")
    If objFSO.FolderExists(Request.ServerVariables("APPL_PHYSICAL_PATH")&strSearch) Then
        Response.Write "Mappen blev fundet!"
    Else
        Response.Write "Mappen blev ikke fundet!"
    End If
  Set objFSO = Nothing
End If
%>

ja det virker, men kan det ikke lade sig gøre at den kun søger i mappen og ikke søger i mappernes undermapper?

Den burde ikke kunne søge i mappernes undermapper. Er du helt sikker?

prøver lige igen

ok det er lidt mærkeligt det her, hvis jeg søger på en mappe som ligger i roden skal kunne mappen ikke findes, men søger jeg på en undermappe så kan mappen godt findes.

har fået det til og virke, koden kommer her:

<form name="foldersearch" method="post">
  Sub-mappe: <input type="text" name="folder">
  mappe<input name="path" type="hidden" value="mappe">&nbsp
  <input type="submit" name="submit" value="Søg">
</form>
<%
If Request.Form("folder") <> "" Then
  strSearch = Request.Form("folder") & "mappe"
 
  Set objFSO = CreateObject("Scripting.FileSystemObject")
    If objFSO.FolderExists("C:\Inetpub\" & strSearch) Then
        Response.write "<font size='2px' color='red'><b>" & Request.Form("folder") & "mappe er optaget!</b></font>"
    Else
        Response.write "<font size='2px' color='green'><b>" & Request.Form("folder") & "mappe er ledigt!</b></font><br /><form name='bestilsub' action='default.asp?side=bestilsub' method='post'><input name='subname' type='hidden' value=" & Request.Form("folder") & " <br /> <input type='submit' name='bestilsub' value='bestil' /></form>"
    End If
  Set objFSO = Nothing
End If
%>