Peter
Sat Feb 21 18:36:26 CST 2004
Hi Diddy
Try this, it will produce a nice neatly formatted Word document. All you
have to do is modify the code to set the path to where your files are kept:
Public Sub FileNameList()
Dim docOutput As Word.Document
Dim rngOut As Word.Range
Dim rngHold As Word.Range
Dim strRootFolder As String
Dim strFile As String
' Create output document
Set docOutput = Documents.Add
Set rngOut = docOutput.Content
' This is the folder to search for your files in
strRootFolder = "F:\My Templates\Test Documents\*.txt"
' Add all files in the root folder to the output document
strFile = Dir$(strRootFolder)
Do Until LenB(strFile) = 0
' Crop first 4 characters of file name and file type
strFile = Left$(strFile, InStr(strFile, ".") - 1)
' Add filename to document
rngOut.InsertSymbol -3933, "Wingdings 2", True
rngOut.Font.Size = 14
rngOut.Move wdCharacter, 1
Set rngHold = rngOut.Duplicate
rngOut.Text = " " & strFile & vbCr
rngOut.Start = rngHold.End
rngOut.Font.Size = 11
rngOut.Collapse wdCollapseEnd
' Next file if any
strFile = Dir$
Loop
With ActiveDocument.Content
' Delete the last paragraph in the document as it's redundant
.Paragraphs(.Paragraphs.Count).Range.Select
Selection.Delete
' Tidy up paragraph formatting
With .ParagraphFormat
.SpaceBefore = 3
.SpaceAfter = 3
End With
End With
End Sub
HTH + Cheers - Peter
<anonymous@discussions.microsoft.com> wrote in news:1490201c3f8d4$f0c344b0
$a501280a@phx.gbl:
> I leave the files in the folder they are downloaded into
> BUT I need to count all the individual files from the
> overnight batch and compare them to a matrix from the day
> before to insure I received confirmation that the entire
> batch was received. I do NOT want to rename the files,
> currently I highlight all the files names, copy and paste
> into Notepad so I can crop them and print out a page and
> then manually count the files.
>
> Also, adding a checkbox next to the file names would be
> nice too!
>
> Cheers!
>>-----Original Message-----
>>Hi Diddy
>>
>>I'm not sure what you're using Notepad for??? You just
> what to rename all
>>files with a BVDX prefix??? You don't do anything else
> with the file???
>>
>>Cheers - Peter
>>
>>"DizzyD" <DizzyD@discussions.microsoft.com> wrote in
> news:13d8e01c3f8d0
>>$7181e4d0$a301280a@phx.gbl:
>>
>>> Hi all,
>>> Perhaps one (or more) of you wizards can assist me with
>>> automating a daily tasks. Here's the deal - Every day I
>>> ftp a batch file to a partner company, they break that
>>> batch up into individual files ( usually 50-100). Thru
> a
>>> script they deposit these files back into a pre-defined
>>> folder on my server - however, they add a bunch of
>>> characters to each file name. I copy all these files
> into
>>> notepad, strip these characters and manually count the
>>> total files received. I don't mind doing the copy and
>>> paste function into Notepad, Word, Excel or whatever
> and
>>> from there I like some VBA to perhaps do a string
> function
>>> (?) to strip all but the last 6 characters of the file
>>> name and total the number of files. Example below...
>>>
>>> I ftp:
>>> Batch AL021504.txt ( includes 50 files)
>>>
>>> I receive the next day:
>>> BVDX100001.txt
>>> BVDX100002.txt
>>> BVDX100003.txt
>>> BVDX100004.txt
>>> BVDX100005.txt
>>>
>>> and so on for the remaining 45 files..
>>>
>>> Currently I copy all 50 into Notepad, crop the BVDX and
>>> the .txt extension and manually count the number of
> files.
>>>
>>> Is there some VBA magic I can use to help me crop and
> add ?
>>>
>>> I hope I explained the requirements??
>>>
>>> As always - thanks in advance !!! ;-)
>>>
>>>
>>
>>.
>>
>