PureBasic

Bonjour,

Je faisais des tests pour listé les fichiers d'un ordinateur distant. Dans ces tests, je me suis dit : Pourquoi pas, que comme avec VB6 "FileSystem" de PureBasic ne permettrez pas de listé les fichiers d'un ordinateur distant (par son partage). J'ai donc utilisé le code source de la doc pour faire mon test :

Code : Tout sélectionner

;
; ------------------------------------------------------------
;
;   PureBasic - FileSystem example file
;
;    (c) 2001 - Fantaisie Software
;
; ------------------------------------------------------------
;

If OpenWindow(0, 100, 200, 290, 200, "PureBasic - FileSystem Example")
  StringGadget  (0,  10, 10, 202, 24, GetHomeDirectory())
  ButtonGadget  (1, 220, 10, 60 , 24, "List")
  ListViewGadget(2,  10, 40, 270, 150)

  Repeat
    Event = WaitWindowEvent()

    If Event = #PB_Event_Gadget
      If EventGadget() = 1 ; Read
        ClearGadgetItems(2)  ; Clear all the items found in the ListView
        If ExamineDirectory(0, GetGadgetText(0), "*.*")
          While NextDirectoryEntry(0)
            FileName$ = DirectoryEntryName(0)
            If DirectoryEntryType(0) = #PB_DirectoryEntry_Directory
              FileName$ = "[DIR] "+FileName$
            EndIf
            AddGadgetItem(2, -1, FileName$)
          Wend
        Else
          MessageRequester("Error","Can't examine this directory: "+GetGadgetText(0),0)
        EndIf

      EndIf
    EndIf
  Until Event = #PB_Event_CloseWindow
EndIf

End

et dans le "StringGadget ()", on met seulement le lien de l'ordinateur distant du genre "\\ORDINATEUR\LEPARTAGE\" et la cela fonctionne. Comme la doc ne l'indique pas je me suis dit pourquoi ne pas le partager ou cas ou?

Voila c'est juste une toute petite astuces mais bon, on sait jamais.

Cordialement,
GallyHC

J'ai eu fait un petit soft de backup distant par ce bias.

Moi, c'est pour un explorateur (genre Total Commander). la j'arrive a avoir tout les ordis distants, leur disque partagé, les imprimantes et forcement le listage des fichiers maintenant

.

c'est plus pour ce qui ne connaisse pas cette astuce.

Cordialement,
GallyHC

PureBasic

FileSystem et réseau local.

FileSystem et réseau local.

Re: FileSystem et réseau local.

Re: FileSystem et réseau local.