Visualizzazione dei risultati da 1 a 2 su 2
  1. #1
    Utente di HTML.it
    Registrato dal
    Jul 2006
    Messaggi
    209

    Elencare i file di una sub folder

    Salve

    come faccio ad elencare i file di cartelle contenute all'interno di altre cartelle?
    Nella cartella UTENTI ho tante cartelle come CODICI FISCALI che al loro interno hanno l'anno (2017).
    All'interno dell'anno ho dei file PDF che voglio elencare.

    Posto lo script

    Dim objFso, objFolder, objSubFolders, strFolder, strSubFolder, strSubFolder1, objFolder1, objsubfolders1
    strPath = "/utenti"
    Path = "\utenti"



    Set objFso = Server.CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFso.GetFolder(Server.MapPath(strPath))
    Set objSubFolders = objFolder.SubFolders


    For Each strSubFolder in objSubFolders
    'response.Write StrSubFolder.name & "<br>"
    if len(StrSubFolder.name)=16 then
    Set objFolder1 = objFso.GetFolder(Server.MapPath(StrSubFolder.name) )
    Set objSubFolder1 = objFolder1.SubFolders
    For Each strSubFolder1 in objSubFolder1
    response.Write StrSubFolder1.name & "<br>"
    Set objFiles = objSubFolder1.Files
    For Each strFile in objFiles
    Response.Write(strFile.name & "<br />")
    Next
    Next
    end if

    Next

    Set objFso = Nothing
    Set objFolder = Nothing
    Set objSubFolders = Nothing

    L'errore che mi da è il seguente:

    Errore di run-time di Microsoft VBScript error '800a01b6'
    Proprietà o metodo non supportati dall'oggetto: 'SubFolders'

    e si riferisce alla riga istruzione S
    et objFiles = objSubFolder1.Files

    Qual'è l'errore?

  2. #2
    Utente di HTML.it L'avatar di vic53
    Registrato dal
    Oct 2010
    residenza
    Fonte Nuova (Roma)
    Messaggi
    588
    Quote Originariamente inviata da fullavia Visualizza il messaggio
    Salve

    come faccio ad elencare i file di cartelle contenute all'interno di altre cartelle?
    Nella cartella UTENTI ho tante cartelle come CODICI FISCALI che al loro interno hanno l'anno (2017).
    All'interno dell'anno ho dei file PDF che voglio elencare.

    Posto lo script

    Dim objFso, objFolder, objSubFolders, strFolder, strSubFolder, strSubFolder1, objFolder1, objsubfolders1
    strPath = "/utenti"
    Path = "\utenti"



    Set objFso = Server.CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFso.GetFolder(Server.MapPath(strPath))
    Set objSubFolders = objFolder.SubFolders


    For Each strSubFolder in objSubFolders
    'response.Write StrSubFolder.name & "<br>"
    if len(StrSubFolder.name)=16 then
    Set objFolder1 = objFso.GetFolder(Server.MapPath(StrSubFolder.name) )
    Set objSubFolder1 = objFolder1.SubFolders
    For Each strSubFolder1 in objSubFolder1
    response.Write StrSubFolder1.name & "<br>"
    Set objFiles = objSubFolder1.Files
    For Each strFile in objFiles
    Response.Write(strFile.name & "<br />")
    Next
    Next
    end if

    Next

    Set objFso = Nothing
    Set objFolder = Nothing
    Set objSubFolders = Nothing

    L'errore che mi da è il seguente:

    Errore di run-time di Microsoft VBScript error '800a01b6'
    Proprietà o metodo non supportati dall'oggetto: 'SubFolders'

    e si riferisce alla riga istruzione S
    et objFiles = objSubFolder1.Files

    Qual'è l'errore?
    al posto di
    Set objFiles = objSubFolder1.Files
    devi mettere
    Set objFiles = strSubFolder1.Files

    mi pare...
    Vic53

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.