Directory printing from Windows

This tip provides a simple little macro that will print a directory listing from Windows.

Directory printing from Windows

Reader Steve Krupp lets us in on a simple little macro that will print a directory listing from Windows.

I discovered that there is no way to print the directory of a CD-ROM or any folder directly from windows. You could do a screen print but if your folder has too many files they won't all appear on one page. This simple macro will print every file name without reordering them in any way and tell you how many files you have.

Code: Sub DIRECTORYLIST()

Pname = InputBox("Please enter path where file names are to be scanned", "ENTER PATH")


       ChangeFileOpenDirectory Pname

' get the name of all the files in the dir one at a time and run the routine
    
  FName = Dir(Pname & "*.*")
 
   ' Loop structure

    Do While FName <> ""
       NOFDOCS = NOFDOCS + 1
        
        SendKeys (FName)
        SendKeys "{ENTER}", True
    
    FName = Dir()
    Loop
    MsgBox (NOFDOCS), , "Number of Files Scanned"
End Sub

Sub DIRECTORYLISTKEY()
'
' DIRECTORYLISTKEY Macro
' Shortcut key Alt D
    Application.Run MacroName:="DIRECTORYLIST"
End Sub

------------------------------------------------------

Steve Krupp is Supervisor of the Training Dept. at Samsung Telecommunications America.
This was last published in January 2001

Start the conversation

Send me notifications when other members comment.

By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Please create a username to comment.

-ADS BY GOOGLE

SearchCloudComputing

SearchSoftwareQuality

SearchSOA

TheServerSide

SearchCloudApplications

Close