Spécifier les données a stocker

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:

Code:

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

Voici une capture de la base

Pièce jointe 301377

Merci d'avance