View Scripts in Windows Explorer Preview Pane?

[JRL]

I never use the Windows Explorer preview pane, just never think about it. Today I wanted to search for some code and thought the preview pane might be just the ticket. Unfortunately Macro Scheduler scripts don't seem to preview. Is there a setting somewhere or is it more complicated?

[CyberCitizen]

https://www.tekrevue.com/tip/windows-search-indexing/

Add Your Scripts Files *.SCP

[JRL]

Thanks Cy,

Didn't work though. When I look at the index properties the file extension .SCP is already set up to index contents.

Also tried the registry portion of these instructions.
https://kickthatcomputer.wordpress.com/ ... xtensions/
First step is to associate the file extension with Notepad. Did not want to associate my script files with Notepad so left out that step which is probably why it didn't work. But if its a choice between seeing scripts in the preview pane and having them associated with Macro Scheduler, I choose the latter.

[hagchr]

... or If you need to browse regularly then maybe just use MS and create a little simple "MS Explorer". ReadFile> will get the script contents.

[JRL]

Good idea

Code: Select all

GetFileList>%script_dir%\*.scp,vList,crlf
StringReplace>vList,%Script_dir%\,,vList


Dialog>Dialog1
object Dialog1: TForm
  Left = 467
  Top = 160
  HelpContext = 5000
  BorderIcons = [biSystemMenu]
  Caption = 'Script File Preview'
  ClientHeight = 689
  ClientWidth = 1219
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  ShowHint = True
  OnTaskBar = False
  DesignSize = (
    1219
    689)
  PixelsPerInch = 96
  TextHeight = 13
  object MSMemo1: tMSMemo
    Left = 385
    Top = 6
    Width = 824
    Height = 675
    ScrollBars = ssBoth
    ScrollBarsAutoShowing = ssBoth
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
  end
  object MSListBox1: tMSListBox
    Left = 6
    Top = 8
    Width = 371
    Height = 673
    ItemHeight = 13
    TabOrder = 1
    SelectedIndex = -1
  end
end
EndDialog>Dialog1

SetDialogProperty>Dialog1,MSListBox1,text,vList
AddDialogHandler>Dialog1,MSListBox1,OnClick,Process

Show>Dialog1,

SRT>Process
  GetDialogProperty>Dialog1,MSListBox1,SelectedItems,vSelected
  ReadFile>%script_dir%\%vSelected%,vData
  SetDialogProperty>Dialog1,MSMemo1,Text,vData
END>Process