?
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
Medium Priority
?
1,780 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 2
  • 2
  • +3
11 Comments
 
LVL 67

Accepted Solution

by:
sirbounty earned 500 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
Get 15 Days FREE Full-Featured Trial

Benefit from a mission critical IT monitoring with Monitis Premium or get it FREE for your entry level monitoring needs.
-Over 200,000 users
-More than 300,000 websites monitored
-Used in 197 countries
-Recommended by 98% of users

 
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
 
LVL 16

Assisted Solution

by:t0t0
t0t0 earned 500 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 46

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

The Orion Papers

Are you interested in becoming an AWS Certified Solutions Architect?

Discover a new interactive way of training for the exam.

Question has a verified solution.

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

This article describes some techniques which will make your VBA or Visual Basic Classic code easier to understand and maintain, whether by you, your replacement, or another Experts-Exchange expert.
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
The viewer will learn how to dynamically set the form action using jQuery.
In this seventh video of the Xpdf series, we discuss and demonstrate the PDFfonts utility, which lists all the fonts used in a PDF file. It does this via a command line interface, making it suitable for use in programs, scripts, batch files — any pl…
Suggested Courses

752 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