Prev: XL03 suppress 'missing XLA' msg on Workbooks.open
Next: Media Player Help
From: Ron de Bruin on 12 Feb 2010 13:06
Btw: copy/open the file in the root folder you want

You can use the same bat file in any location you want

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Ron de Bruin" <rondebruin(a)kabelfoon.nl> wrote in message news:uxlyE2ArKHA.3536(a)TK2MSFTNGP06.phx.gbl...
>I have a small .bat file for this
>
> Open a new file in notepad and copy the code below in it
>
> @echo off
> dir %1 /-p /b /o:gn /s > "%temp%\Listing.txt"
> start notepad "%temp%\Listing.txt"
> exit
>
> Then save the txt file and close it
> Then change the extension to .bat
>
> When you double click the bat file it will create a txt file for you with the whole list of files
> You can copy it in Excel if you want from there
>
> If you mail me I can send the bat to you
>
> --
>
> Regards Ron de Bruin
> http://www.rondebruin.nl/tips.htm
>
>
> "T. Jenkins" <TJenkins(a)discussions.microsoft.com> wrote in message news:8D4F941C-B213-4E08-BEC2-1ABA05EB6CC1(a)microsoft.com...
>> Thanks very much for the response. Weird that they did not include it from
>> the help.
>>
>> It looks like your code is designed to consolidate data from different
>> spreadsheets into one file. Sine all I need is paths and filenames, I would
>> need to modify your code pretty significantly. Can you give me any quick
>> tips on editing it to just enter the path and filenames for all files located
>> in a given folder/subfolder? I could probably figure it out, but since you
>> will know the code very well, I thought you might be able to help.
>>
>> I'm just planning to use this to help find files with exceptionally long
>> paths, so I can take action to address path length errors. All I need is the
>> path/filename in an excel list, and I can take it from there.
>>
>> Thanks again,
>> Todd
>>
>>
>> "Ron de Bruin" wrote:
>>
>>> They removed it from 2007
>>>
>>> You can use Dir or FSO
>>> See
>>> http://www.rondebruin.nl/copy3.htm
>>>
>>> Or also for subfolders
>>> http://www.rondebruin.nl/fso.htm
>>>
>>>
>>> --
>>>
>>> Regards Ron de Bruin
>>> http://www.rondebruin.nl/tips.htm
>>>
>>>
>>> "T. Jenkins" <TJenkins(a)discussions.microsoft.com> wrote in message news:AA6D0E19-E16B-4589-A157-848AC56D0DF5(a)microsoft.com...
>>> > This is my first time developing/editing macros since switching to Office
>>> > 2007, so I'm wondering if I have a setting wrong someplace.
>>> >
>>> > I'm trying to run a routine I used in the past to list all files in a
>>> > particular folder in a worksheet. Because I was having trouble getting this
>>> > to run, I searched the Excel help, and found the sample code below, which I
>>> > used to test the basic filesearch functionality. Since I'm getting the same
>>> > error, it's clear that something is wrong.
>>> >
>>> > The code below errors-out at the initial line, "With
>>> > Application.Filesearch." The error is as follows: Run-time error 445: Object
>>> > doesn't support this action." This is the same error I'm getting in my
>>> > earlier code.
>>> >
>>> > Do I have something configured wrong here? I would tell you the specifics
>>> > about the version I'm using, but since MS no longer seems to have a Help,
>>> > About option, I can't find it. I just know its Office 2007.
>>> >
>>> > Thanks for the help.
>>> >
>>> > =========== sample code ===========
>>> > With Application.FileSearch
>>> > .NewSearch
>>> > .LookIn = "J:\My Documents\__Print"
>>> > .SearchSubFolders = True
>>> > .Filename = "run"
>>> > .TextOrProperty = "San*"
>>> > .MatchAllWordForms = True
>>> > .FileType = msoFileTypeAllFiles
>>> > If .Execute() > 0 Then
>>> > MsgBox "There were " & .FoundFiles.Count & _
>>> > " file(s) found."
>>> > For i = 1 To .FoundFiles.Count
>>> > MsgBox .FoundFiles(i)
>>> > Next i
>>> > Else
>>> > MsgBox "There were no files found."
>>> > End If
>>> > End With
>>> >
>>> >
>>> >
>>> .
>>>
First  |  Prev  | 
Pages: 1 2
Prev: XL03 suppress 'missing XLA' msg on Workbooks.open
Next: Media Player Help