Dll filesystem vb.net

Soyez le premier à donner votre avis sur cette source.

Vue 11 516 fois - Téléchargée 824 fois

Description

Cette DLL permet d'utiliser toutes les fonctions DIRECTORY de SYSTEM.IO simplement.
Toutes les fonctions de copie, déplacement, renommage, suppression listage de fichiers et répertoire sont traitées.
Lire le fichier RTF pour information et consulter le code des boutons du fichier de test.
Le test ne rique en principe pas de supprimer des répertoires utiles. Les répertoire supprimés ou creés s'appellent titi toto tata ou tutu volontairement.
Pour lancer le test c'est dans \test et c'est Test.vbproj.

Conclusion :


J'ai un problème avec les array (liaison tardive) qui m'a obligé à mettre
Option Strict à off. Si vous avez une solution ne manquez pas de m'en faire part de même si j'ai oublié des fonctions.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
2
Date d'inscription
mardi 10 octobre 2006
Statut
Membre
Dernière intervention
21 octobre 2006

Merci pour la reponse.
Je vais essayer cela des que possible.

Bjark
Messages postés
1356
Date d'inscription
samedi 8 décembre 2001
Statut
Membre
Dernière intervention
23 octobre 2006
7
Pour BJARK
Il suffit de modifier la fonction CopyDirectory comme suit
Function CopyDirectory(ByVal mFolderSrc As String, ByVal mFolderCible As String, ByVal bStatus As Boolean) As Boolean
' Si pas de barre de progression passer le 3 ème paramètre false, sinon Trus
Dim cTab As New Collection
Dim atab() As String
Dim oRep As Object
Dim srep As String
Dim i As Integer, j As Integer, k As Integer, iPos As Integer
Dim sfichier As String
Dim sDir As String
Dim mFolderDebut As String
Dim iIncr As Integer
Dim frm As New Status
If bStatus Then
frm.Show()
End If
Try
Dim dirs As String() = Directory.GetDirectories(mFolderSrc)
Dim dir As String
Dim sSource As String
Dim sCible As String
cTab.Add(mFolderSrc)

For Each dir In dirs
cTab.Add(dir)
' Analyse des sous répertoires
AnalyseFolder(dir, cTab)
Next

' Mise en place de la copie
' création des repertoires
If InStr(mFolderSrc, "") > 0 Then
For k = 1 To Len(mFolderSrc)
If Mid(mFolderSrc, k, 1) = "" Then
iPos = k
End If
Next
mFolderDebut = Mid(mFolderSrc, 1, iPos - 1)
Else
' c'est A: par exemple
If InStr(mFolderSrc, ":") = 0 Then
MsgBox("Adresse source incorrecte", MsgBoxStyle.Exclamation)
Return False
Else
mFolderSrc = Mid(mFolderSrc, 2)

End If
End If

For i = 1 To cTab.Count
oRep = cTab.Item(i)
srep = oRep.ToString
' création des repertoires et sous repertoires
sDir = Replace(srep, mFolderDebut, mFolderCible)
If Directory.Exists(sDir) = False Then
Directory.CreateDirectory(sDir)
End If
Next
If bStatus Then
frm.ProgressBar1.Value = 0

iIncr = 100 / cTab.Count
End If
'Copie des fichiers
For i = 1 To cTab.Count
If bStatus Then
If (frm.ProgressBar1.Value + iIncr) < 100 Then
frm.ProgressBar1.Value = frm.ProgressBar1.Value + iIncr
Else
frm.ProgressBar1.Value = 100
End If
End If
oRep = cTab.Item(i)
srep = oRep.ToString
Dim aTabf As Array
aTabf = ListeFichiers(srep)

For j = 0 To UBound(aTabf)
sSource = CType((srep & Replace(aTabf(j), srep, "")), Object).ToString
sCible = CType(Replace(aTabf(j), mFolderDebut, mFolderCible), Object).ToString
File.Copy(sSource, sCible, True)
Next
Next
If bStatus Then
frm.Close()
End If
frm.Dispose()
frm = Nothing
Return True
Catch e As Exception
MsgBox("Erreur " & e.Source & " " & e.Message & vbCrLf & "La copie ne s'est pas faite ou est incomplête", MsgBoxStyle.Critical)
Return False
End Try

End Function

Puis de recompiler la dll

Bye
Messages postés
1356
Date d'inscription
samedi 8 décembre 2001
Statut
Membre
Dernière intervention
23 octobre 2006
7
Il faut rechercher dans le projet CopyDirectory et flagger ce qui fait apparaitre la barre
Messages postés
2
Date d'inscription
mardi 10 octobre 2006
Statut
Membre
Dernière intervention
21 octobre 2006

Bonjour
Je viens d'essayer ta dll sur un petit programme que je realise.
tout fonctionne impec mais je voudrais faire disparaitre la progressbar sur la commande myDll.CopyDirectory(x,y) ... tu peux me donner la marche a suivre ?
Merci
A+
Messages postés
3
Date d'inscription
vendredi 4 février 2005
Statut
Membre
Dernière intervention
25 février 2005

Merci pour ce complement d'information. :)
Afficher les 15 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.