gistfile1.txt

on letsWatchThatStinkingFolder () {
	«Changes
		«3/7/23; 11:55:58 AM by DW
			«Created.
	local (prefix = "chat-gpt-");
	local (sourcefolder = "Macintosh HD:Users:davewiner:Downloads:");
	local (destfolder = user.prefs.publicfolder + "chatgpt:");
	fileloop (f in sourcefolder) {
		local (fname = file.filefrompath (f));
		if fname beginswith prefix {
			local (filetext = file.readwholefile (f));
			local (relpath = file.getdatepath () + string.delete (fname, 1, sizeof (prefix)));
			local (url = "http://scripting.com/publicfolder/chatgpt/" + string.replaceall (relpath, ":", "/"));
			local (fdest = destfolder + relpath);
			file.surefilepath (fdest);
			file.writewholefile (fdest, filetext);
			clock.waitseconds (3);
			webbrowser.openurl (url);
			file.delete (f)
      			}
     		};
  	}