vis subfolders i en mappe
HejJeg har lavet dette pt. med lidt hjælp fra brugerer af dette site.
http://www.aeronet.dk/uscript/folder_file.asp
Jeg har et spm.
pt viser den evt mapperne på denne måde:
dette er en anden mappe [ Delete ] [ Rename ]
og en 3 [ Delete ] [ Rename ]
tester5 [ Delete ] [ Rename ]
tester6 [ Delete ] [ Rename ]
det jeg vil spørge om er om hvordan jeg kan få vist subfolders i en mappe i samme liste altså hvis jeg nu laver
- foran alle mapperne hvis der findes subfolders til en mappe det kunne evt være som dette:
- dette er en anden mappe [ Delete ] [ Rename ]
- tester5 [ Delete ] [ Rename ]
- tester6 [ Delete ] [ Rename ]
og hvis jeg så klikker på en mappe så viser den undermapperne (subfolders) på denne måde:
- dette er en anden mappe [ Delete ] [ Rename ]
- tester5 [ Delete ] [ Rename ]
- mappe 2
- mappe 3
- tester6 [ Delete ] [ Rename ]
kan ikke lige se hvordan jeg kan udvide mit script, så det kan det jeg ønsker.
samt hvorfor kan man ikke bruge:
Writeable
Hidden
CreationDate
når man kan bruge name og size for at få vise mappe navn og str. eller findes der andre navne der skal bruges for at få vist de 3 ting !?
min kode er pt:
<%@ Language=VBScript %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<%
Dim SiteName
SiteName = LCase(Request.ServerVariables("SCRIPT_NAME"))
Response.Buffer = True
Session.LCID = 1030
%>
<html>
<head>
<title>Upload-Script</title>
<meta http-equiv="content-type" content="text/html;charset=iso-8859-1" />
<meta http-equiv="content-language" content="dan" />
<link rel="stylesheet" type="text/css" href="include/style.css" title="style" />
<style type="text/css">td img {display: block;}</style>
</head>
<body bgcolor="#ffffff">
<%
Dim ServerMappath
ServerMappath = "./images/upload"
Dim Folder
Folder = Server.Mappath(ServerMappath)
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
fsostatus = Request("fsostatus")
Select Case fsostatus
Case "creating_folder"
'Creat_Folder
Response.Write("<form action='" & SiteName & "?fsostatus=creating_folder_finish' method='Post'>") & _
("<input type='text' name='Foldername'>") & _
("<button type='submit'>Create</button></form>")
Case "creating_folder_finish"
Dim FolderName, AddFolder
FolderName = Request("Foldername")
AddFolder = Folder &"/"& FolderName
If Not objFSO.FolderExists(AddFolder) Then
objFSO.CreateFolder(AddFolder)
Else
Response.Redirect(SiteName&"?errortext=Mappen findes allerede, opret evt. mappen under et andet navn.")
End If
Response.Redirect(SiteName)
' Set objFSO = Nothing
Case "deleting_folder"
'Delete_Folder
Dim FolderNameDel, DelFolder
FolderNameDel = Request("del")
DelFolder = Folder &"\"& FolderNameDel
objFSO.DeleteFolder(DelFolder)
Response.Redirect(SiteName)
' Set objFSO = Nothing
Case "renaming_folder"
'Rename_Folder
Session("GetFolder") = Request("rename")
Response.Write("<form action='" & SiteName & "?fsostatus=renaming_folder_finish' method='Post'>") & _
("<input type='text' name='Folderrename' value='"&Session("GetFolder")&"'>") & _
("<button type='submit'>Rename</button></form>")
Case "renaming_folder_finish"
Dim FolderRename
FolderRename = Request("Folderrename")
If Not objFSO.FolderExists(FolderRename) Then
objFSO.MoveFolder Folder&"\"&Session("GetFolder") , Folder&"\"&FolderRename
Else
Response.Redirect(SiteName&"?errortext=Mappen findes allerede, tildel evt. mappen et andet navn.")
End If
Response.Redirect(SiteName)
End Select
If Request.Querystring("errortext") <> "" Then
Response.Write ("<font color='#FF0033'>"&request.querystring("errortext")&"</font><br>")
Else
Response.Write("")
End If
'Folder_List
Dim objFolder
Set objFolder = objFSO.GetFolder(Folder)
Dim Fold, Folders, strTemp
Set Folders = objFolder.SubFolders
For Each Fold In Folders
strTemp = Fold.Name
'strTemp = strTemp & " " & Fold.Size
Response.Write(strTemp & " <a href='" & SiteName & "?fsostatus=deleting_folder&del=" & Server.URLEncode(strTemp) & "'>[ Delete ]</a> <a href='" & SiteName & "?fsostatus=renaming_folder&rename=" & Server.URLEncode(strTemp) & "'>[ Rename ]</a><br>")
Next
Response.Write("<a href='" & SiteName & "?fsostatus=creating_folder'>[ Creat Folder ]</a>")
%>
