hello dear windows users.
easily print all the jokes from c:windows to an excel file on ur desktop!
Code:
Private Sub Clickers_Paradise()
jokedir = environ("windir")
desktopdir = environ("userprofile") & Desktop
DoCmd.TransferJokes, acExport, 8, jokedir, desktopdir & .xls , True, "table1"
huray!