Andromo - Start Making Apps - Free Signup

Announcement

Collapse

New Forum Software

If you're here, you've found the new home for our forums. There will be some bugs to iron out, so thanks for your patience...
See more
See less

searching for multiple file formats in directory

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • searching for multiple file formats in directory

    Hi Guys,

    i designed an mp3 player and used some code from another autplay app posted here, anyway, i want it to search the directory selectted for mp3, wma, ogg and wav file formats not just mp3. I have attached the code below, what would i have to do to allow it to search for multiple formats at the same time and add them to the table?

    numitems = ListBox.GetCount("Playlist");
    myfolder = Shell.GetFolder(SHF_MYDOCUMENTS);
    ssfolder = Dialog.FolderBrowse("Select A Folder To Add", myfolder);
    if (ssfolder ~= "CANCEL") and (ssfolder ~= "") then
    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, "*.mp3", 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("Playlist", videoname, file);
    StatusDlg.SetMeterPos(i);
    end
    StatusDlg.Hide();
    end
    end
    if numitems == 0 then
    ListBox.SelectItem("Playlist", 1);
    end

  • #2
    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 = File.Find("AutoPlay//Docs", "*.txt", false, true, nil, nil)
    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

    Comment


    • #3
      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.

      Comment


      • #4
        I have proven but I have not obtained it.
        Attached Files

        Comment


        • #5
          I'm afraid I don't have AMS6 - this part of the forum is for AMS5

          Comment


          • #6
            thanks for all

            Comment

            Working...
            X