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 first published in January 2001

Dig deeper on Win Development Resources

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchCloudComputing

SearchSoftwareQuality

SearchSOA

TheServerSide

SearchCloudApplications

Close