Solved

how to find all .jpg files in my computer using FileSystemObject, the output is to a txt file

Posted on 2009-04-14
11
1,705 Views
Last Modified: 2013-11-09
How can I write a script to list all .jpg files in my computer by using FileSystemObject. The result should be put in a text file.
0
Comment
Question by:vbsnoob
  • 3
  • 2
  • 2
  • +3
11 Comments
 
LVL 67

Accepted Solution

by:
sirbounty earned 125 total points
ID: 24137960
This should do it..
Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objOut = objFSO.CreateTextFile ("C:\JPGReport.txt")

Set objFolder = objFSO.GetFolder("C:\")
 

Set colFiles = objFolder.Files

For Each objFile in colFiles

  If LCase(Right(objFile.Name, 3)) = "jpg" Then objOut.WriteLine file

Next
 

ScanFolders objFSO.GetFolder("C:\")

objOut.Close

wscript.quit
 

Sub ScanFolders(strFolder)

    For Each strSubFld in strFolder.SubFolders

        Set objFolder = objFSO.GetFolder(strSubFld.Path)

        Set colFiles = objFolder.Files

        For Each objFile in colFiles

          If LCase(Right(objFile.Name, 3)) = "jpg" Then objOut.WriteLine file

        Next

        ScanFolders strFolder

    Next

End Sub

Open in new window

0
 

Author Comment

by:vbsnoob
ID: 24138157
thank you very much for ur speedy help!
0
 
LVL 30

Expert Comment

by:hnasr
ID: 24138661
:) but you need to replace WriteLine file file with WriteLine file objFile
0
 
LVL 67

Expert Comment

by:sirbounty
ID: 24138677
oops... :^)
0
 
LVL 30

Expert Comment

by:hnasr
ID: 24138691
:) but you need to replace WriteLine file with WriteLine objFile
0
DevOps Toolchain Recommendations

Read this Gartner Research Note and discover how your IT organization can automate and optimize DevOps processes using a toolchain architecture.

 
LVL 16

Assisted Solution

by:t0t0
t0t0 earned 125 total points
ID: 24139544
Why not simply use a DOS command as in:

   dir /a-d /b /s c:\*.jpg >jpgfiles.txt

The results can be viewed by opening the JPGFILES.TXT in notepad etc...
0
 
LVL 45

Expert Comment

by:aikimark
ID: 24150000
I think the t0t0 suggestion is the best.
0
 
LVL 16

Expert Comment

by:t0t0
ID: 24153769
aikimark

Thank you.
0
 
LVL 6

Expert Comment

by:Justin_W_Chandler
ID: 24167765
OBVIOUSLY, he has a reason for doing it in VB. I wouldn't be surprised if he's got an assignment for school that he's trying to get some help with.
0
 
LVL 16

Expert Comment

by:t0t0
ID: 25850454
i'm good wih that!
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Over the years I have built up my own little library of code snippets that I refer to when programming or writing a script.  Many of these have come from the web or adaptations from snippets I find on the Web.  Periodically I add to them when I come…
This article will show, step by step, how to integrate R code into a R Sweave document
Learn the basics of lists in Python. Lists, as their name suggests, are a means for ordering and storing values. : Lists are declared using brackets; for example: t = [1, 2, 3]: Lists may contain a mix of data types; for example: t = ['string', 1, T…
The viewer will learn how to create and use a small PHP class to apply a watermark to an image. This video shows the viewer the setup for the PHP watermark as well as important coding language. Continue to Part 2 to learn the core code used in creat…

895 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

17 Experts available now in Live!

Get 1:1 Help Now