OK i attempting to test this scenario with me adding a.config file in "MyApp" folder located in C: \Program Files (x86)\MyApp\
Im having it Display a msgBox
But when i run it it wont display anything am i missing something.?
dim fldr as FolderItem = SpecialFolder.Applications.child("MyApp")
// Iterate through all items in the folder
for i as integer = 1 to fldr.Count
dim f as FolderItem = fldr.Item(i)
if f.Name.right(7 ) = " .Config" then
dim cname as string = f.Name.left(f.Name.Len - 7)
select case cname
case "a.config" // Process the "a.config" file.
MsgBox("I Found a file")
case "b" // Process the "b.config" file.
MsgBox("I Found b file")
case "c" // Process the "c.config" file.
MsgBox("I Found c file")
else
// Oops, there isn't any code to process this .config file
break
end select
end if
next
close