searching for multiple file formats in directory (_SourceFolder)

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts
  • gallurt
    Forum Member
    • Oct 2006
    • 8

    searching for multiple file formats in directory (_SourceFolder)

    please how
    To modify code to look for search in " \\Autoplay\\Docs".

    and imput

    sorry by my bad engish

    Code:
    -- Was the Enter key pressed?  If so, continue on...
    if e_Key == 13 then
    
    
    numitems = ListBox.GetCount("ListBox1");
    myfolder = Shell.GetFolder(SHF_MYDOCUMENTS);
    ssfolder = [COLOR="Red"]File.Find("AutoPlay//Docs", "*.txt", false, true, nil, nil)[/COLOR]
    subfolders = Dialog.Message("Recurse Subfolders", "Do you want to include subfolders", MB_YESNO, MB_ICONQUESTION, MB_DEFBUTTON2)
    if (subfolders == IDYES) then
    subfolder = true
    else
    subfolder = false
    end
    file_table = File.Find(ssfolder, "*.*", subfolder, false, nil);
    if (file_table == nil) then
    Dialog.Message("Error", "There were no audio files in the selected Directory. Please select a directory that contains audio files", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1)
    dirselect = "NO";
    else
    file_count = Table.Count(file_table);
    ctr = 1;
    dirselect = "YES";
    StatusDlg.SetMeterRange("1", file_count);
    StatusDlg.SetTitle("Please wait while your audio files are loaded.");
    StatusDlg.Show(MB_ICONNONE, false);
    for i,file in file_table do
    videonametable = String.SplitPath(file);
    videoname = videonametable.Filename;
    result = ListBox.AddItem("ListBox2", videoname, file);
    StatusDlg.SetMeterPos(i);
    end
    StatusDlg.Hide();
    end
    end
    if numitems == 0 then
    ListBox.SelectItem("ListBox2", 1);
    end
    end

    longedge:
    If you use the global variable _SourceFolder that will always refer to the location that your project is running from and then you can concatenate folders beneath that, so setting a variable -

    docsfolder = _SourceFolder.."\\Autoplay\\Docs"

    will give you the Docs folder.
    Last edited by gallurt; 02-04-2007, 11:31 AM.
  • gallurt
    Forum Member
    • Oct 2006
    • 8

    #2
    I have proven but I have not obtained it.
    Attached Files

    Comment

    Working...
    X