Сохранение нескольких файлов

SELECT ItemTypeID from tbl_Files
where FileID in (select FileID from tbl_FileInAccount where AccountID in (select ID from tbl_Account where Name = 'ОАО Горсовет'))

function SaveToFile(){
	var Dataset = FilesDetailGridArea.Dataset;
	var SelectedIDs = grdData.SelectedIDs;
	if (SelectedIDs.Count == 0) {
		return;
	}
	var Message;
	var InitialDir = EmptyStr;
	var FileName = System.CreateObject('TSObjectLibrary.Value');
	if (SelectedIDs.Count > 1) {
		var WindowCaption = "Сохранить файлы";
		var DirectoryName = System.CreateObject('TSObjectLibrary.Value');
		if (!(System.SelectDirectory(WindowCaption, InitialDir, 
			DirectoryName))) {
			return;	
		}
		var SavedFilesCount = 0;
		Dataset.DisableEvents();
		for (var i = 0; i < SelectedIDs.Count; i++) {
			var RecordID = SelectedIDs(i);
			Dataset.Locate('ID', RecordID);
			var FileType = GetFieldValueFromDisabledField(Dataset, 'ItemTypeID');
			FileName.Value =
				GetFieldValueFromDisabledField(Dataset, 'Link');
			if (!SaveToFileByFileType(Dataset, RecordID, FileName, 
				DirectoryName.Value, FileType)) {
				continue;
			}	
			SavedFilesCount++;
		}
		Dataset.EnableEvents();
		Message = FormatStr(FilesSavedMessage, SavedFilesCount, 
			SelectedIDs.Count);
		ShowInformationDialog(Message);
	} else {
		FileName.Value =
			GetFieldValueFromDisabledField(Dataset, 'Link');
		if (!SaveToFileByFileType(Dataset, FilesDetailGridArea.RecordID, 
			FileName, '', FilesDetailGridArea.FileType)) {
			return;
		}	
		if (FilesDetailGridArea.FileType != ft_File) {
			return;
		}
		Message = FormatStr(OpenFileForEditMessage,	FileName.Value);
		if (ShowConfirmationDialog(Message) == mrYes) {
			if (!OpenFileWithFullAccess(FileName.Value, true, ft_File)) {
				return;
			}
		}
	}
}
 
function SaveToFileByFileType(Dataset, RecordID, FileName, FilePath, FileType) {
	if (!FilePath) {
		FilePath = '';
	}	
	switch(FileType) {
		case ft_File:
			var FileExtension = '.' + ExtractFileExtension(FileName.Value);
			var FileFilterValue = '*' + FileExtension;
			FileFilterValue = FileFilterValue + '|' + FileFilterValue;
			var WindowCaption = "Сохранить файл";
			var InitialDir = EmptyStr;
			var IsSaving = true;
			if (FileName.Value == EmptyStr) {
				return false;
			}
			if (FilePath != '') {
				FileName.Value = FilePath + '\\' + FileName.Value;
			} else 
				if (!(System.PromptForFileName(FileName, 
					FileFilterValue, FileExtension,	WindowCaption, 
					InitialDir, IsSaving))) {
					return false;
				}
			var File = LoadFileFromDatabase(RecordID, 
				FileName.Value, false);	    
			if (!File) {
				return false;
			}
			break;
		case ft_Link:
		case ft_FolderLink:
			var FileExtension = 'lnk';
			var FileFilterValue = '*lnk';
			FileFilterValue = FileFilterValue + '|' + FileFilterValue;
			var WindowCaption = "Сохранить файл";
			var InitialDir = EmptyStr;
			var IsSaving = true;
			if (FileName.Value == EmptyStr) {
				return false;
			}
			var DestinationFileName = FileName.Value;
			FileName.Value = ExtractFileNameWithoutExtension(FileName.Value);
			if (FilePath != '') {
				FileName.Value += '.' + FileExtension;
				FileName.Value = FilePath + '\\' + FileName.Value;
			} else 
				if (!(System.PromptForFileName(FileName, 
					FileFilterValue, FileExtension,	WindowCaption, 
					InitialDir, IsSaving))) {
					return false;
				}
			var LinkCaption = ExtractFileNameWithoutExtension(FileName.Value);
			System.CreateFileLink(DestinationFileName, '', 
				LinkCaption, ExtractFilePath(FileName.Value));
			break;
		case ft_URL:
			var FileExtension = 'url';
			var FileFilterValue = '*url';
			FileFilterValue = FileFilterValue + '|' + FileFilterValue;
			var WindowCaption = "Сохранить файл";
			var InitialDir = EmptyStr;
			var IsSaving = true;
			if (FileName.Value == EmptyStr) {
				return false;
			}
			var URLPath = new String(FileName.Value);
			var Index = URLPath.indexOf('://') == -1 ? 0 : 
				URLPath.indexOf('://') + 3;
			var URLFileName = URLPath.substr(Index, URLPath.length);
			Index = URLFileName.indexOf('/') == -1 ? URLFileName.length : 
				URLFileName.indexOf('/');
			URLFileName = new String(URLFileName.substr(0, Index));
			FileName.Value = URLFileName;
			if (FilePath != '') {
				FileName.Value += '.' + FileExtension;
				FileName.Value = FilePath + '\\' + FileName.Value;
			} else 
				if (!(System.PromptForFileName(FileName, 
					FileFilterValue, FileExtension,	WindowCaption, 
					InitialDir, IsSaving))) {
					return false;
				}
			var URLFileStream = new ActiveXObject('ADODB.Stream');
			URLFileStream.Type = 2;
			URLFileStream.Mode = 3;
			URLFileStream.Open();
			URLFileStream.WriteText("[InternetShortcut]",1);
			URLFileStream.WriteText("URL=" + URLPath,1);
			URLFileStream.Position = 0;
			URLFileStream.SaveToFile(FileName.Value, 2);
			URLFileStream.Close();
			URLFileStream = null;	
			break;	
	}	
	return true;
}

                Message = FormatStr(FilesSavedMessage, SavedFilesCount, 
                        SelectedIDs.Count);
                ShowInformationDialog(Message);

ShowInformationDialog('Операция завершена. Файлов сохранено: ' + SavedFilesCount);