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



Download: The Developer's Guide to IoT
The IoT world may be exciting, but there are serious technical challenges that need to be addressed, especially by developers. In this handbook, learn how to meet the security, analytics, and testing requirements for IoT applications.
By submitting your personal information, you agree that TechTarget and its partners may contact you regarding relevant content, products and special offers.
You also agree that your personal information may be transferred and processed in the United States, and that you have read and agree to the Terms of Use and the Privacy Policy.
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.
Start the conversation
0 comments