class NsSharedFile

La classe NsSharedFile décrit un fichier partagé publié sur le serveur de sauvegarde.

Les fichiers partagés ne peuvent être créés que depuis l'agent client, et ne sont accessibles que si l'interface Web a été correctement activée sur le serveur.

ID : __int64 readonly

L'identificateur unique du fichier partagé.

OwnerID : __int64 readonly

L'identificateur de l'utilisateur ((NsUser)) ayant partagé le fichier.

ClientPlatform : enum NsPlatformType readonly

La plate-forme du client ayant partagé le fichier.

FileKey : BSTR readonly

La clé de téléchargement du fichier.

FilePath : BSTR readonly

Le chemin d'accès sur le poste client au fichier partagé.

Hash : BSTR readonly

Le hash MD5 du fichier partagé.

Size : __int64 readonly

La taille du fichier partagé.

PublicationDate : VARIANT readonly

La date de publication du fichier partagé, au format UTC.

LastDownloadDate : VARIANT readonly

La date de dernier téléchargement, si le fichier a déjà été téléchargé au moins une fois, au format UTC.

DownloadCount : __int64 readonly

Le nombre total de téléchargements.

VARIANT_BOOL LoadFromID(NsConnection Connection, __int64 SharedFileID)

Charge en mémoire le fichier partagé d'identificateur SharedFileID.

VARIANT_BOOL DownloadURL(NsConnection Connection, BSTR DownloadURL)

Obtient l'URL de téléchargement du fichier.

VARIANT_BOOL Delete(NsConnection Connection)

Arrête le partage du fichier.

Affichage de la taille totale des fichiers partagés

Set connection = CreateObject("NsAPI.NsConnection")
Set sysutils = CreateObject("NsAPI.NsScriptUtils")

if connection.ConnectToLocalServer then
  set server = CreateObject("NsAPI.NsServer")
  
  if server.Load(connection) then ' Charger les informations serveur
    set sharedFiles = server.SharedFiles(connection) ' Récupère la liste des fichiers partagés
    
    totalBytes = 0
    
    for each sharedFile in sharedFiles
      totalBytes = totalBytes + sysutils.Int64ToInt32(sharedFile.Size) 'Additionne les tailles
    next
    
    ' Affiche le résultat
    MsgBox "Le serveur stocke " & sharedFiles.count & " fichier(s), représentant " & sysutils.SizeToStr(totalBytes) & "."
  end if
  
  connection.Disconnect
else
  MsgBox "Connexion au serveur local impossible."
end if