gestion de dossiers en vb

Marsh Posté le 02-03-2015 à 17:04:00

Bonjours,bonsoir à toutes et à tous
Voila je viens juste de m'inscrire à ce forum intéressant et je compte sur votre soutient et surtout sur votre patience je veux faire un petit projet en vb consistant à gérer des dossiers textes (avec formulaire initial vierge) :ajouter nouveaux dossiers ayant un N° successif au précédent,éditer changer dossiers existant(sans toucher à son N° ;seulement le contenu ) avec bien entendu une belle interface.et l'option de recherche de dossiers par plusieurs critères(N°,nom,date,lieu etc), s'il y a un prog pareil sinon m'aider à le créer.
Merci d'avance .

Message édité par neptune62 le 02-03-2015 à 17:28:02

Marsh Posté le 02-03-2015 à 17:04:00

Marsh Posté le 02-03-2015 à 22:47:19

Salut, commencer par lire et assimiler http://warin.developpez.com/access/fichiers/
ici une routine pour éviter les doublons de noms de fichiers ( ici *.pdf ) à adapter à ton contexte

Private Function RenommerFichierPDF(sChemin As String, sNomFichier As String) As String
Dim sNouveauNom As String
Dim i As Long
Dim FSO As Object

Set FSO = CreateObject("Scripting.FileSystemObject" )
If FSO.fileExists(sChemin & "\" & sNomFichier & ".pdf" ) = True Then
sNouveauNom = sNomFichier
i = 0
While FSO.fileExists(sChemin & "\" & sNouveauNom & ".pdf" ) = True
i = i + 1
sNouveauNom = sNomFichier & Chr(40) & Format(i, "000" ) & Chr(41)
Wend
sNomFichier = sNouveauNom
End If
Set FSO = Nothing
RenommerFichierPDF = sNomFichier
End Function

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html

Marsh Posté le 06-03-2015 à 15:54:36

je vous remercie infiniment pour votre réponse
malgré que je suis débutant en VB , je vais essayer de déchiffrer ces données basiques . :hello:

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *