REM Description: Create a LFN document with FileNewDefaults
REM WSWin Macro File: FileNewLFN.WMC (FILENE~1.WMC)

rem FileClose ,
FileNewDefaults
DECLARE SUB FOLDER (dirName$)
CALL FOLDER (dirName$)
string$ = INPUTBOX$("Please type in a Long File Name")
orig$ = string$ + ".wsd"
FileSaveAsCopy dirName$ + "\" + orig$
FileClose 0, 2
FileNewDefaults
TypeText string$
ret% = EditReplace( " ", "", 0, 1, 1, 0, 1, 0, 0, 0)
StartOfDoc 
rem CharRight 6, 0,
CharRight 8, 0,
WordLeft 1, 1
EditCopy 
ret% = GetClipboardText(text$)
FileClose 0, 2
FileOpen dirname$ + "\" + text$ + ".wsd"

SUB FOLDER (dirName$)
	BEGIN DIALOG grpdlg 160, 148, "Quick List Options"

		GROUPBOX       4, 4, 150, 138, "Select Folder/Directory:"
		OPTIONGROUP    pgroup%
		PUSHBUTTON   20, 18, 120, 12, "WSWin &Default Directory", 3
		PUSHBUTTON   20, 31, 120, 12, "&Kentville Church Directory", 4
		PUSHBUTTON   20, 44, 120, 12, "Minor &Hockey Directory", 5
		PUSHBUTTON   20, 57, 120, 12, "&Linda's Directory", 6
		PUSHBUTTON   20, 70, 120, 12, "&James' Directory", 7
		PUSHBUTTON   20, 83, 120, 12, "&Matthew's Directory", 8
		PUSHBUTTON   20, 96, 120, 12, "Deskto&p", 9
		PUSHBUTTON   20, 109, 120, 12, "&A:\ Drive", 10
		PUSHBUTTON   20, 122, 120, 12, "Select a New &Path", 11
	END DIALOG
	ret% = DIALOG(grpdlg)
	IF ret% = 2 THEN STOP
	IF ret% = 3 THEN dirName$ = "e:\_philip"
	IF ret% = 4 THEN dirName$ = "e:\_philip\kubc"
	IF ret% = 5 THEN dirName$ = "e:\_philip\kamha"
	IF ret% = 6 THEN dirName$ = "e:\_LINDA"
	IF ret% = 7 THEN dirName$ = "e:\_JAMES"
	IF ret% = 8 THEN dirName$ = "e:\_MATTHEW"
	IF ret% = 9 THEN dirName$ = "c:\windows\desktop"
	IF ret% = 10 THEN dirName$ = "A:"
	IF ret% = 11 THEN dirName$ = INPUTBOX$("Please type in the name of a Directory/Folder")

END SUB