INU Login Sign up
Login Or Sign up

Answers for "excel vba get list of files from web folder"

VBA
7

excel vba get list of Excel files in a folder

'VBA function to return an array of file names from a folder:

Public Function GetFiles(sPath$, Optional sFilter$ = "*.*")
  	Dim p&, f$, s$: s = Space(1e6)        
    f = Dir(sPath & _
        String(Abs(Right(sPath, 1) <> ""), "") & sFilter)
        Do While Len(f)
            Mid(s, p + 1, Len(f) + 1) = f & vbLf
            p = p + Len(f) + 1
            f = Dir
        Loop
    GetFiles = Split(Left(s, p - 1), vbLf)
End Function

'--------------------------------------------------------------------

ExcelFiles = GetFiles("C:temp", "*.xls*")
MsgBox LBound(ExcelFiles)  '<--displays: 0
Posted by: Guest on May-02-2020
3

excel vba list files in folder

' List of files in folder / subfolders
' Needs to add "Microsoft Scripting Runtime" reference to your file
Sub FolderFilesInfo(ByVal pFolder As String, ByRef pColFiles As Collection, _
    Optional ByVal pGetSubFolders As Boolean, Optional ByVal pFilter = "*.*")
    Dim sFolder As String
    Dim oFSO As New FileSystemObject
    Dim oFolder, oSubFolder As Folder
    Dim oFile As File
    
    sFolder = IIf(Right(pFolder, 1) <> "", pFolder & "", pFolder)
    Set oFolder = oFSO.GetFolder(sFolder)
    For Each oFile In oFolder.Files
        pColFiles.Add oFile
    Next oFile
    If pGetSubFolders Then
        For Each oSubFolder In oFolder.SubFolders
            FolderFilesInfo oSubFolder.Path, pColFiles, pGetSubFolders, pFilter
        Next
    End If
End Sub
'------------------------------------------------------------------------------
Sub TestMe()
    Dim colFiles As New Collection, sFilePath As Variant
    FolderFilesInfo ThisWorkbook.Path, colFiles, True, "*.txt"
    For Each oFile In colFiles
        Debug.Print oFile.Name & " : " & oFile.Path
    Next oFile
End Sub
Posted by: Guest on January-19-2021

Code answers related to "excel vba get list of files from web folder"

Code answers related to "VBA"

Browse Popular Code Answers by Language

Python
Javascript
Whatever
Shell/Bash
CSS
Html
PHP
SQL
Java
C#

Popular Programming Languages

Abap ActionScript Assembly BASIC C C# C++ Clojure Cobol CSS Dart Delphi Elixir Erlang F# Fortran Go Groovy Haskell Html Java Javascript Julia Kotlin Lisp Lua Matlab Objective-C Pascal Perl PHP Prolog Python R Ruby Rust Scala Scheme Shell/Bash SQL Swift TypeScript VBA Whatever

Advertisements

290x500

Company

Compilers

Help

Connect with us

footer logo

Copyright © 2021 Codeinu