Carpeta compartida en vb.net

[verdugo_2687]

Como puedo compartir una carpeta (fijate en el codigo) mediante codigo en vb.net una carpeta que acabo de crear:

Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
If Not Directory.Exists("c:\Exp") Then
Directory.CreateDirectory("c:\Exp")
'dim c as New

MessageBox.Show("Se creo Carpeta Expedientes")
Else
Dim a As New OpenFileDialog
a.InitialDirectory = "c:\Exp"
a.Filter = "Todos los archivos|*.*|Todos los archivos|*.*"
a.FilterIndex = 2
a.RestoreDirectory = True
a.ShowDialog()
End If


End Sub
ahora kiero compártirla pero nose como hacerle gracias