Improve CreateInputDirPage example. Did not change to one in AllPagesExample.iss because it's different.

Examples/CodeDlg.iss

@@ -79,7 +79,7 @@ begin
   DataDirPage := CreateInputDirPage(wpSelectDir,
     'Select Personal Data Directory', 'Where should personal data files be installed?',
     'Select the folder in which Setup should install personal data files, then click Next.',
-    False, '');
+    False, SetupMessage(msgNewFolderName));
   DataDirPage.Add('');
 
   { Set default values, using settings that were stored last time if possible }

ISHelp/isxfunc.xml

@@ -2475,7 +2475,7 @@ Page := CreateInputDirPage(wpWelcome,
   'Select Personal Data Location', 'Where should personal data files be stored?',
   'Personal data files will be stored in the following folder.'#13#10#13#10 +
   'To continue, click Next. If you would like to select a different folder, click Browse.',
-  False, 'New Folder');
+  False, SetupMessage(msgNewFolderName));
 
 // Add item (with an empty caption)
 Page.Add('');