Bonjour,
Comment changer les attributs des fichiers (*.ts) d'une FreeBox
Je m'adresse à la communauté Linux car Free programme sous cet OS, mais par contre moi j'utilise un PC avec Windows Vista32 et le langage vbNet.10
J'espère que les gens de lunux pourront me dépanner...
Alors je veux changer les attributs des fichiers vidéos *.ts qui sont enregsitrés sur ma FreeBox, ceci depuis mon PC, donc via Internet.
Avec mon code j'arrive à lister les fichiers qui ont la prmission "w", par contre les autres ne sont pas visibles (pas de w au moins), et c'est là mon problème, je vourais changer les attributs pour voir tous les fichiers.
Peut être que sous Linus ça peut se faire ?
Quand j'envoie la requête j'ai une erreur :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Atp.Net.FtpException: The requested operation is not supported. à Atp.Net.Ftp.SetFilePermissions(String remotePath, String permissions) à Atp.Net.Ftp.SetFilePermissions(String remotePath, FtpFilePermissions permissions) à FreeBoxFile.Form4.Button1_Click(Object sender, EventArgs e) dans C:\Users\joe\Documents\Visual Studio 2010\Projects\FreeBoxFile\Form4.vb:ligne 32
Voici le code, je crois qu'il est compréhensible par ceux qui programment :
Merci de vos lumières.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25 Option Explicit On '4 dll rajoutées = UltimateCommon + UltimateFileSystem + UltimateFtp + UltimateProxy Public Class Form4 Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim client As New Atp.Net.Ftp() Dim chemin As String = "/Disque dur/Enregistrements/" Try client.Connect("ftp://hd1.freebox.fr") client.Authenticate("...", "...") ' non mis volontairement client.SetCurrentDirectory(chemin) 32: client.SetFilePermissions(chemin, Atp.Net.FtpFilePermissions.OwnerRead Or Atp.Net.FtpFilePermissions.OwnerWrite) client.Disconnect() Catch ex As Exception client.Disconnect() TextBox1.Text = "ERREUR" & vbCrLf & vbCrLf & ex.ToString Exit Sub End Try client.Disconnect() TextBox1.Text = "Requpete = OK" End Sub End Class
Partager