Operazioni con oggetto File System Object (FSO)

[orcim]

Buonasera; ho scaricato lo script:

<%

Dim objFso, objFolder, objFiles, strFolder, strFile
strPath = "cartella/"
     
Set objFso = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFso.GetFolder(Server.MapPath(strPath))
Set objFiles = objFolder.Files

For Each strFile in objFiles
     Response.Write(strFile.name) & "
"
Next 
     
Set objFso = Nothing
Set objFolder = Nothing
Set objFiles = Nothing

%>

per la visualizzazione di files all'interno di cartelle, ma ho due domande:

1) è possibile prevedere una condizione if... then che quando la cartella è vuota, rimanda ad una pagina di avviso?

2) se nella cartella ho ad esempio 15 files come faccio a contarli?

Grazie.

[Sypher]

usa objFiles.Count per entrambe

[orcim]

un esempio?

[optime]

Originariamente inviato da orcim
un esempio?

ma ti serve?

IF objFiles.Count = 0 Then
Response.Write "cartella vuota"
End If


oppure

Response.Write "Ciao bello! La cartella contiene " & objFiles.Count & " files"

[orcim]

non riesco a farlo funzionare... :

Set objFolder = objFso.getfolder(server.mappath(percorso))
Set objFiles = objFolder.Files

if objFiles.Count = 0 Then 
Response.Write "cartella vuota" 
else

'intestazioni tabella

numdir = 0

For each directoryfile in objFolder.subfolders
numdir = (numdir + 1)

'valori in tabella

end if

Next
response.Write ("Numero di cartelle presenti : " & numdir)

[orcim]

per il controllo dell'esistenza dei files è ok... perchè non riesco a controllare l'esistenza di directory???

[santino83]

path=server.mapPath(indirizzo)
if FSO.FolderExists(path) then
'fai qualcosa
else
'fai n'altra
end if

(grazie a baol )

[orcim]

Microsoft VBScript runtime error '800a01a8'
Object required: 'FSO'
/pagina.asp, line 43

'CONTROLLA ESISTENZA DIRECTORY
path=server.mapPath(percorso)
if FSO.FolderExists(path) then
Response.Write "cartella vuota" 
else

[santino83]

'CONTROLLA ESISTENZA DIRECTORY
path=server.mapPath(percorso)
if objFso.FolderExists(path) then
Response.Write "cartella ESISTE" 
else
response.write "cartella NON ESISTE"

oppure vuoi sapere se la cartella contiene sotto cartelle guarda questo:

Proprietà SubFolders
Restituisce un insieme Folders composto da tutte le cartelle contenute in una cartella specificata, comprese quelle contenenti file nascosti e di sistema.

oggetto.SubFolders

L'argomento oggetto è un oggetto Folder.

Osservazioni
Nel codice seguente viene illustrato l'utilizzo della proprietà SubFolders:

Function ShowFolderList(folderspec)
Dim fso, f, f1, s, sf
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set sf = f.SubFolders
For Each f1 in sf
s = s & f1.name
s = s & "
"
Next
ShowFolderList = s
End Function

[orcim]

dovrei soltanto controllare che la cartella richiesta non sia vuota (sia di files che di sottodirectory); se vuota rispedire l'utente da dove è arrivato...