REM Description: Rename a file
REM Filename: rename.wmc
REM Created by: Rewrite 2/4/98 of a delete macro by Steven Wylie - 11/08/93

Pathname:
	BEGIN DIALOG grpdlg 160, 148, "Quick List Options"

		GROUPBOX       4, 4, 150, 138, "Path Selection:"
		OPTIONGROUP    pgroup%
		PUSHBUTTON   20, 18, 120, 12, "WSWin &Default Directory", 3
		PUSHBUTTON   20, 31, 120, 12, "&WSWin Directory", 4
		PUSHBUTTON   20, 44, 120, 12, "&WSWin Directory", 5
		PUSHBUTTON   20, 57, 120, 12, "&WSWin Directory", 6
		PUSHBUTTON   20, 70, 120, 12, "&WSWin Directory", 7
		PUSHBUTTON   20, 83, 120, 12, "&WSWin Directory", 8
		PUSHBUTTON   20, 96, 120, 12, "&WSWin Directory", 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 GOTO WSWinDoc
	IF ret% = 4 THEN GOTO WSWin
	IF ret% = 5 THEN GOTO WSWin2
	IF ret% = 6 THEN GOTO WSWin3
	IF ret% = 7 THEN GOTO WSWin4
	IF ret% = 8 THEN GOTO WSWin5
	IF ret% = 9 THEN GOTO WSWin6
	IF ret% = 10 THEN GOTO ADrive
	IF ret% = 11 THEN GOTO NewPath

WSWinDoc:
	dirName$ = "C:\wswin\docs"
	GOTO FileRename

WSWin:
	dirName$ = "C:\wswin"
	GOTO FileRename

WSWin2:
	dirName$ = "C:\wswin"
	GOTO FileRename

WSWin3:
	dirName$ = "C:\wswin"
	GOTO FileRename

WSWin4:
	dirName$ = "C:\wswin"
	GOTO FileRename

WSWin5:
	dirName$ = "C:\wswin"
	GOTO FileRename

WSWin6:
	dirName$ = "C:\wswin"
	GOTO FileRename

ADrive:
	dirName$ = "A:"
	GOTO FileRename

NewPath:
	dirName$ = INPUTBOX$("Please type in the name of a Directory/Folder")
	GOTO FileRename

FileRename:
rem currentDir$ = CHDIR docDir$
CHDIR dirName$

title$ = "Choose a File to Rename"

REM Get a filename from the user.  Only one file at a time will be used.
filename$ = GetFileBox$("*.*", title$)

IF filename$ = "" THEN STOP

IF Access(filename$, 0) = 0 THEN
	msg$ = filename$ + chr$(13) + chr$(13) + "This file does not exist."
	ret% = MESSAGEBOX(msg$, "Rename File Error", 16)
	STOP
ENDIF

DECLARE FUNCTION DOSRENAME LIB "c:\ws\wswin\mscomstf.dll" (file1$, file2$) AS INTEGER
	file1$ = filename$
	string$ = INPUTBOX$("Please type in a new File Name")
	file2$ = string$
	DOSRENAME file1$, file2$