Windows Script Host Object Model Folders and Files

janpieter · **Posted:** Mon Nov 07, 2005 4:57 pm

Its a shame, vbscripting does not allow API calls :cry:

Mark Brummel · **Posted:** Tue Oct 17, 2006 2:21 pm

This is a great solution. =D>

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

Code: Select all

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:

Code: Select all

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. :mrgreen:

kriki · **Posted:** Tue Oct 17, 2006 9:20 pm

Mark Brummel wrote:

I'll send it to the downloads also. :mrgreen:

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! :mrgreen:

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 · **Posted:** Thu Oct 26, 2006 7:49 pm

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 · **Posted:** Tue Aug 26, 2008 7:36 am

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

Kowa · **Posted:** Wed Jun 16, 2010 6:08 pm

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 · **Posted:** Thu Sep 08, 2011 4:32 pm

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 · **Posted:** Fri Sep 09, 2011 9:16 am

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 · **Posted:** Fri Sep 09, 2011 9:20 am

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 · **Posted:** Fri Sep 09, 2011 6:07 pm

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

Troubles In Paradise · **Posted:** Fri Sep 09, 2011 6:10 pm

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 · **Posted:** Mon Nov 28, 2011 4:48 pm

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 · **Posted:** Wed Mar 14, 2012 5:16 pm

Code: Select all

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 );   

mibuso.com

Windows Script Host Object Model Folders and Files

Who is online