Windows Script Host Object Model Folders and Files

kriki

For once I am not resolving a problem, but posting one.
I need to scan a subdirectory for files and subdirectories. In general virtual table "File" works, but now the directory-structure is so deep that the filter on field "Path" generates an error (value in the filter .... is too long for the field type).
So I am trying Automation.
These are the variables I declared:

Lint	Integer		
LautFileSystemObject	:'Windows Script Host Object Model'.FileSystemObject	
LautFolder	:'Windows Script Host Object Model'.Folder	
LautFolder2	:'Windows Script Host Object Model'.Folder	
LautFolders	:'Windows Script Host Object Model'.Folders

and this is the code:

CREATE(LautFileSystemObject);
LautFolder :=  LautFileSystemObject.GetFolder('c:\temp');
LautFolders := LautFolder.SubFolders();

FOR Lint := 1 TO LautFolders.Count() DO BEGIN
  LautFolder2 := LautFolders.Item(Lint); // This goes wrong
END;

CLEAR(LautFileSystemObject);

When I run this peace of code I get the error:"An exception occurred from an external component. The component did not provide the exception description".
What am I doning wrong?

kine

From documentation of the Subfolders class:

[VBScript]
Function ItemDemo
   Dim d   ' Create some variables.
   Set d = CreateObject("Scripting.Dictionary")
   d.Add "a", "Athens"   ' Add some keys and items.
   d.Add "b", "Belgrade"
   d.Add "c", "Cairo"
   ItemDemo = d.Item("c")   ' Get the item.
End Function

It seems, that the index is not no. but may be some other key...

kriki

I also found this documentation, but I fail to see how I can use it to solve my problem.

kine

I am afraid that without iterating functions you will be not able to do this in Navision in this way... (or you need to search for keys which are associated as default with the folders)

CodeGenius

Hi Kine,

I suppose your trying to get a list of folders using Navision.

If I were you I would not use Windows Script Host Object Model. Navision has the table file that you can use to walk through Files & Folders.

Here's an example:

Variables:
Name	DataType	Subtype	Length
FileRec	Record	File	

Code:
FileRec.SETRANGE(Path, 'C:\Temp');
FileRec.SETRANGE("Is a file", False);           // TRUE for files, FALSE for folders...
IF FileRec.FIND('-') THEN
  REPEAT
    if not (FileRec.Name IN ['.', '..']) then   // Skip current and parent folder...
      MESSAGE(FileRec.Name);
  UNTIL FileRec.NEXT = 0;

I think this will be a easier way to accomplish the same. Hope this is some help!

kriki

Hi CodeGenius,

I think you are suffering the Friday-afternoon-disease.

I know very well this table. Problem is that it doesn't work if the path goes to deep. So I am forced to find another solution.
I tried that automation, but I got stuck on retrieving all the subdirs and files in a subdir.

CodeGenius

kriki wrote:

I think you are suffering the Friday-afternoon-disease.

No Friday-afternoon-disease, just looking for an alternative for your problem. Collection types in WSH do not work very well with Navision. Why? I cannot tell you, I didn't make the IFolderCollection interface

I was just trying to be helpful...

kriki

CodeGenius wrote:

kriki wrote:

I think you are suffering the Friday-afternoon-disease.

No Friday-afternoon-disease, just looking for an alternative for your problem. Collection types in WSH do not work very well with Navision. Why? I cannot tell you, I didn't make the IFolderCollection interface

I was just trying to be helpful...

Thanx for the help.
But you should read the problem better. I wrote in it that I had problems with the File-table.

azwierzchowski

In folders collection folders are indexed by name.
Use Microsoft Script Control:

Variables:
scr Automation 'Microsoft Script Control 1.0'.ScriptControl
txtCode Text 1024
RetVal Variant
count Integer
i Integer
txtCR Text 30
FolderName Text 1024

And code:

txtCR := ' '; txtCR[1] := 13;
create(scr);
scr.Language := 'VBScript';

//declare global collection
txtCode :=
'dim Folders' + txtCR;
scr.AddCode(txtCode);

//find folders and copy them to collection
txtCode :=
'sub LoadFolderList(folderspec)' + txtCR +
' Dim fso, f, f1, s, sf' + txtCR +
'' + txtCR +
' set Folders = CreateObject("Scripting.Dictionary")' + txtCR +
'' + txtCR +
' Set fso = CreateObject("Scripting.FileSystemObject")' + txtCR +
' Set f = fso.GetFolder(folderspec)' + txtCR +
' Set sf = f.SubFolders' + txtCR +
' For Each f1 in sf' + txtCR +
' Folders.Add (Folders.Count+1), f1' + txtCR +
' Next' + txtCR +
'End sub' + txtCR;
scr.AddCode(txtCode);

txtCode :=
'function GetCount' + txtCR +
' GetCount = Folders.Count' + txtCR +
'end function' + txtCR;
scr.AddCode(txtCode);

txtCode :=
'function GetFolder(i)' + txtCR +
' getFolder = Folders(i)' + txtCR +
'end function' + txtCR;
scr.AddCode(txtCode);

scr.ExecuteStatement('LoadFolderList "C:\temp\"');

RetVal := scr.Eval('GetCount');
count := RetVal;

for i:=1 to count do begin
RetVal := scr.Eval('GetFolder(' + format(i) + ')');
FolderName := RetVal;
message(FolderName);
end;

CLEAR(scr);

kine

:shock: indexing something I want to know by the value I want to know... #-o

I know that in VB no problem... but... ](*,)

jreynolds

azwierzchowski,

This is a very clever technique. Thanks for sharing it.

wakestar

azwierzchowski wrote:

In folders collection folders are indexed by name.
Use Microsoft Script Control:
Variables:
scr Automation 'Microsoft Script Control 1.0'.ScriptControl
txtCode Text 1024
RetVal Variant
...

nice!
I used to write and run *.vbs files dynamically at runtime, but your code is in navision - that's cool 8)

azwierzchowski

Another solution, now almost everything is done in Navision.

Script control allows to add Automation controls from your code, so there is another solution. This time VBScript is used only for copying folders objects from collection indexed by folder name to collection indexed by integer value.

Variables from oryginal code:

LautFileSystemObject Automation 'Windows Script Host Object Model'.FileSystemObject
LautFolder Automation 'Windows Script Host Object Model'.Folder
LautFolder2 Automation 'Windows Script Host Object Model'.Folder
LautFolders Automation 'Windows Script Host Object Model'.Folders
LInt Integer

My new variables:
FoldersCol Automation 'Microsoft Scripting Runtime'.Dictionary
txtCode Text 250
txtCR Text 30
scr Automation 'Microsoft Script Control 1.0'.ScriptControl

Code:

CREATE(LautFileSystemObject);
LautFolder := LautFileSystemObject.GetFolder('c:\temp');
LautFolders := LautFolder.SubFolders();
create(FoldersCol);

create(scr);
scr.Language := 'VBScript';
//variable LautFolders is visible in script as FoldersByName
scr.AddObject('FoldersByName', LautFolders);
//variable FoldersCol is visible in script as FoldersById
scr.AddObject('FoldersById', FoldersCol);

//copy objects using VBScript
txtCR := ' '; txtCR[1] := 13;
txtCode :=
'dim f1' + txtCR +
'For Each f1 in FoldersByName' + txtCR +
' FoldersById.Add (FoldersById.Count+1), f1' + txtCR +
'Next' + txtCR;
scr.ExecuteStatement(txtCode);

clear(scr);

//now we can use collection of folders in Navision
FOR Lint := 1 TO FoldersCol.Count() DO BEGIN
LautFolder2 := FoldersCol.Item(Lint);
message(LautFolder2.Name);
END;

kriki

Thanx azwierzchowski.
It works! (I have finally time to check it out. And I am still trying to understand it)

janpieter

Hey thanks for the vbscript example that is cool. I tried it once but didn't get any further because i thought navision was unable to handle some parameters; but so it seems to be possible =D>

janpieter

Its a shame, vbscripting does not allow API calls ](*,)

Marije_Brummel

This is a great solution. =D>

I've used it today and added the files to it.

CREATE(FileSystemObject); 
Folder := FileSystemObject.GetFolder('C:\Edi');
Folders := Folder.SubFolders(); 
CREATE(DictionaryFolders);
CREATE(DictionaryFiles);

CREATE(ScriptControl);
ScriptControl.Language := 'VBScript';

ScriptControl.AddObject('FoldersByName', Folders);
ScriptControl.AddObject('FoldersById', DictionaryFolders);

CrLf := ' ';
CrLf[1] := 13;
Script := 'dim f1' + CrLf +
          'For Each f1 in FoldersByName' + CrLf +
          ' FoldersById.Add (FoldersById.Count + 1), f1' + CrLf +
          'Next' + CrLf;

ScriptControl.ExecuteStatement(Script);

CLEAR(ScriptControl);

FOR i := 1 TO DictionaryFolders.Count() DO BEGIN
  Folder2 := DictionaryFolders.Item(i);
  
  Files := Folder2.Files;
  
  CREATE(ScriptControl);
  ScriptControl.Language := 'VBScript';

  ScriptControl.AddObject('FilesByName', Files);
  ScriptControl.AddObject('FilesById', DictionaryFiles);
  CrLf := ' ';
  CrLf[1] := 13;
  Script := 'dim f1' + CrLf +
            'For Each f1 in FilesByName' + CrLf +
            ' FilesById.Add (FilesById.Count + 1), f1' + CrLf +
            'Next' + CrLf;

  ScriptControl.ExecuteStatement(Script);

  CLEAR(ScriptControl);

  MESSAGE(Folder2.Name);
  MESSAGE(FORMAT(Files.Count));
  
  FOR n := 1 TO DictionaryFiles.Count DO BEGIN
    Fle := DictionaryFiles.Item(n);
    MESSAGE(Fle.Name);
  END;
END;

Variables:

Name	DataType	Subtype	Length
FileSystemObject	Automation	'Windows Script Host Object Model'.FileSystemObject	
Folder	Automation	'Windows Script Host Object Model'.Folder	
Folder2	Automation	'Windows Script Host Object Model'.Folder	
Folders	Automation	'Windows Script Host Object Model'.Folders	
Fle	Automation	'Windows Script Host Object Model'.File	
Files	Automation	'Windows Script Host Object Model'.Files	
DictionaryFolders	Automation	'Microsoft Scripting Runtime'.Dictionary	
DictionaryFiles	Automation	'Microsoft Scripting Runtime'.Dictionary	
ScriptControl	Automation	'Microsoft Script Control 1.0'.ScriptControl	
Script	Text		250
CrLf	Text		2
i	Integer		
n	Integer

I'll send it to the downloads also.

kriki

Mark Brummel wrote:

I'll send it to the downloads also.

I think it might already be somewhere. This is code I already used and I found it on Mibuso.
But I am not sure where it is.




Found it : It was a reply to a problem I had.... :oops: I need to install some more memory in my head!
This is the link: http://www.mibuso.com/forum/viewtopic.php?t=7855

Maybe you can post some code that is usable for all kind of problems in the tips&tricks

Saro

krikri
i had the same problem as well it turned out that i was getting the message for trying to "get" a non existing folder.

i hope this solves ur problem

kriki

[Topic moved from Navision forum to Navision Tips & Tricks forum]

Kowa

I tried this out today, works fine for the classic client, but the same object when run with the RTC shows only a error message that the assembly dll file cannot be compiled due to invalid parameters.

Troubles_In_Paradise

Kowa wrote:

I tried this out today, works fine for the classic client, but the same object when run with the RTC shows only a error message that the assembly dll file cannot be compiled due to invalid parameters.

I have the same problem...

kriki

Just a wild guess:Try to experiment with the parameters of the CREATE-command. With the introduction of RTC, it got some boolean parameters.

Troubles_In_Paradise

kriki wrote:

Just a wild guess:Try to experiment with the parameters of the CREATE-command. With the introduction of RTC, it got some boolean parameters.

Hi kriki, unfortunately I've already tried setting parameters for creating on client and for new server but no luck...

kriki

If you are using 2009R2, search for a .NET alternative.

Troubles_In_Paradise

kriki wrote:

If you are using 2009R2, search for a .NET alternative.

Thx for suggestion... I'll let you know If I find something.

Troubles_In_Paradise

kriki wrote:

If you are using 2009R2, search for a .NET alternative.

I found this link very usefull, it solved my problems:
http://blogs.msdn.com/b/nav/archive/201 ... 09-r2.aspx

naye

DataType	Name	Subtype	Length
Automation	MS_Shell	'Microsoft Shell Controls And Automation'.Shell	
Automation	MS_Folder	'Microsoft Shell Controls And Automation'.Folder3	
Automation	MS_FolderItems	'Microsoft Shell Controls And Automation'.FolderItems3	
Automation	MS_FolderItem	'Microsoft Shell Controls And Automation'.FolderItem

CREATE(MS_Shell, TRUE);
MS_Folder := MS_Shell.BrowseForFolder(0, 'Select The Folder', 0);
IF NOT ISCLEAR( MS_Folder ) THEN
  SelectedFolder := FORMAT(MS_Folder.Self.Path);

IF SelectedFolder = '' THEN EXIT;

MS_FolderItems := MS_Folder.Items;

IF NOT ISCLEAR( MS_FolderItems ) THEN
  FOR I := 1 TO MS_FolderItems.Count DO BEGIN
    MS_FolderItem := MS_FolderItems.Item(I);
    IF NOT ISCLEAR( MS_FolderItem ) THEN BEGIN
      MESSAGE(MS_FolderItem.Path);
      MESSAGE(MS_FolderItem.Name);
      MESSAGE(MS_FolderItem.Type);
      MESSAGE('%1', MS_FolderItem.IsFolder);
      CLEAR( MS_FolderItem );
    END;
  END;

CLEAR( MS_FolderItem );
CLEAR( MS_FolderItems );
CLEAR( MS_Folder );
CLEAR( MS_Shell );