http://gambaswiki.org/bugtracker/edit?object=BUG.746&from=L21haW4-

Comment #2 by Moviga TECHNOLOGIES:

This does not print anything at all:

'Loading custom up profiles
  If Exist(CONFIG_FOLDER) Then
    Debug "CONFIG_FOLDER exits"
    For Each f In Dir(CONFIG_FOLDER, "*.conf", gb.File)
      $aProfiles.Add(File.BaseName(f))
      Debug "Found the profile: " & File.BaseName(f)
    Next
  Else
    Shell "mkdir -p " & CONFIG_FOLDER
  Endif


This works as expected and both instances of Print is printing:

'Loading custom up profiles
  If Exist(CONFIG_FOLDER) Then
    Print "CONFIG_FOLDER exits"
    For Each f In Dir(CONFIG_FOLDER, "*.conf", gb.File)
      $aProfiles.Add(File.BaseName(f))
      Print "Found the profile: " & File.BaseName(f)
    Next
  Else
    Shell "mkdir -p " & CONFIG_FOLDER
  Endif

As you can see, I use Debug other places and there it works. It is just here 
that it doesn't for some reason.



------------------------------------------------------------------------------
_______________________________________________
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user

Reply via email to