Bonjour , j'ai un programme qui récupère les chemins des répertoires et sous répertoires d'un dossier et les stockes dans ma base de données , en fait jusque la tout marche bien juste je veux que le chemin stocker ne soit pas si long je veux stocker a partir d'un nom de répertoire spécifier, par exemple le chemin qui se stocke est C:\Users\caes\Downloads\CIH TRIB2\YASSINE\13-07-2017\0677849\CI\img0001.pdf
moi je veux qu'il soit dans la base a partir de : YASSINE\13-07-2017\0677849\CI\img0001.pdf, je veux enlever le C:\.....
voici mon code:
Voici une capture de la base
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
26
27
28
29
30
31
32
33
34
35
36
37 Try Dim selectedDirectory As String = String.Empty Dim selectedFile As String = String.Empty Dim dossiersTrouvés = Directory.GetDirectories("C:\Users\caes\Downloads\CIH TRIB2") For Each ligneD In dossiersTrouvés selectedDirectory = ligneD If (selectedDirectory IsNot Nothing) Then Dim fichiersTrouvés = Directory.GetFiles("C:\Users\caes\Downloads\CIH TRIB2", "*.*", SearchOption.AllDirectories) For Each ligneF In fichiersTrouvés selectedFile = ligneF If (selectedFile IsNot Nothing) Then myconnection = New SqlConnection("Data Source=--;Initial Catalog=PDF;Persist Security Info=True;User ID=sa;Password=--") myconnection.Open() mycommand = New SqlCommand("insert into pdf ([Repertoires],[Fichiers]) values ( '" & selectedDirectory & "','" & selectedFile & "')", myconnection) mycommand.ExecuteNonQuery() MessageBox.Show("Chemin Stocké : " & selectedDirectory & vbNewLine & selectedFile) myconnection.Close() End If Next End If Next Catch ex As Exception End Try
Pièce jointe 301377
Merci d'avance
Partager