Problem solve
Get help with specific problems with your technologies, process and projects.
Directory printing from Windows
This tip provides a simple little macro that will print a directory listing 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.
Start the conversation
0 comments