Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 9
Default folder hierarchy transfer to excel sheet

I need help to copy a large folder hierarchy to excel sheet, available to be
expanded with "+"(grouping) function and including the files in the folder.

Is this possible with programming or with something else?

Thanks for help
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 9,101
Default folder hierarchy transfer to excel sheet

I you just lookinhg for the file names or do you want to open the files. Do
you need other info beside the filename like last saved date?

"nerohnze" wrote:

I need help to copy a large folder hierarchy to excel sheet, available to be
expanded with "+"(grouping) function and including the files in the folder.

Is this possible with programming or with something else?

Thanks for help

  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 9
Default folder hierarchy transfer to excel sheet

Hi Joel,
No, i don't need to open the files or see the last saved dates.

"Joel" wrote:

I you just lookinhg for the file names or do you want to open the files. Do
you need other info beside the filename like last saved date?

"nerohnze" wrote:

I need help to copy a large folder hierarchy to excel sheet, available to be
expanded with "+"(grouping) function and including the files in the folder.

Is this possible with programming or with something else?

Thanks for help

  #4   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 9,101
Default folder hierarchy transfer to excel sheet

Do you need subolders or just the main directory.

"nerohnze" wrote:

Hi Joel,
No, i don't need to open the files or see the last saved dates.

"Joel" wrote:

I you just lookinhg for the file names or do you want to open the files. Do
you need other info beside the filename like last saved date?

"nerohnze" wrote:

I need help to copy a large folder hierarchy to excel sheet, available to be
expanded with "+"(grouping) function and including the files in the folder.

Is this possible with programming or with something else?

Thanks for help

  #5   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 9
Default folder hierarchy transfer to excel sheet

I also need the subfolders, every folder may have a different level
hierarchy. Also, if possible, i need the files in these folders or subfolders.
Thanks in advance for support.

"Joel" wrote:

Do you need subolders or just the main directory.

"nerohnze" wrote:

Hi Joel,
No, i don't need to open the files or see the last saved dates.

"Joel" wrote:

I you just lookinhg for the file names or do you want to open the files. Do
you need other info beside the filename like last saved date?

"nerohnze" wrote:

I need help to copy a large folder hierarchy to excel sheet, available to be
expanded with "+"(grouping) function and including the files in the folder.

Is this possible with programming or with something else?

Thanks for help



  #6   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 9,101
Default folder hierarchy transfer to excel sheet

The program below will search the entire C:\ drive and get the name, size,
and last modified date. I had the code in my archieves. You can change
strFolder to anything you like for example

strFolder = "C:\temp"
strFolder = "D:\joel\myspace"




Dim RowNumber
Sub GetFolderSize()

strFolder = "C:"
RowNumber = 1

Set fso = CreateObject _
("Scripting.FileSystemObject")
Set folder = _
fso.GetFolder(strFolder)

Sheets(1).Cells(RowNumber, 1) = strFolder + "\"
Sheets(1).Cells(RowNumber, 2) = folder.Size
RowNumber = RowNumber + RowNumber

Call GetSubFolder(strFolder + "\")
End Sub

Sub GetSubFolder(strFolder)
Set fso = CreateObject _
("Scripting.FileSystemObject")

Set folder = _
fso.GetFolder(strFolder)

If folder.subfolders.Count 0 Then
For Each sf In folder.subfolders
On Error GoTo 100
Call GetSubFolder(strFolder + sf.Name + "\")
100 Next sf
End If
'folder size in bytes
On Error GoTo 200
For Each fl In folder.Files
Sheets(1).Cells(RowNumber, 3) = fl.DateLastModified
Sheets(1).Cells(RowNumber, 2) = fl.Size
Sheets(1).Cells(RowNumber, 1) = strFolder & fl.Name
RowNumber = RowNumber + 1
Next fl

200 On Error GoTo 0

End Sub

  #7   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 1,549
Default folder hierarchy transfer to excel sheet

My List Files Excel add-in generates a file/folder list with a grouping
and hyperlink option. All done with a few button clicks.
The trial version is available to those responding (via email) who
provide a real name and geographic location.
Remove XXX from my email address.
--
Jim Cone
Portland, Oregon USA
XX



"nerohnze"

wrote in message
I need help to copy a large folder hierarchy to excel sheet, available to be
expanded with "+"(grouping) function and including the files in the folder.
Is this possible with programming or with something else?
Thanks for help
Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
how do I transfer a balance sheet to a worksheet in Excel? db Excel Worksheet Functions 2 February 27th 09 08:21 PM
Transfer flat file to a Shared folder. Little Penny[_3_] Excel Programming 3 January 2nd 08 11:55 AM
I need an excel sheet to creating a new folder every month, and save a new spreadsheet every day, untill the next month, when it creates a new folder Sol[_3_] Excel Programming 1 September 6th 06 06:50 PM
Check if folder exists, if yes just copy sheet in to folder? Simon Lloyd[_787_] Excel Programming 3 June 19th 06 03:44 PM
transfer data from one excel sheet to another Exceloficio New Users to Excel 3 January 30th 06 05:40 AM


All times are GMT +1. The time now is 10:48 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"