Oggi vi metto a disposizione una funzione che serve per condividere una cartella di rete da codice, se la cartella non esiste la crea.
Private Sub CondividiCartellaInRete(ByVal CartellaCondividere As String, ByVal Descrizione As String)
'Verifico che la cartella sia esistente
If IO.Directory.Exists(CartellaCondividere) = False Then
'Se non esiste la cartella la creiamo
MkDir(CartellaCondividere)
End If
'Controllo se la descrizione non sia vuota
Descrizione = Trim(Descrizione) 'Pulisco la descrizione dagli spazzi
'Verifico che non sia vuola la descrizione
If Descrizione = "" Then
Descrizione = "CartellaMonitor" 'Inserisco una voce di Default se il campo è vuoto
End If
Try
Dim psi As New System.Diagnostics.ProcessStartInfo
psi.WindowStyle = ProcessWindowStyle.Hidden
psi.RedirectStandardOutput = True
psi.CreateNoWindow = True
psi.UseShellExecute = False
psi.FileName = "Net"
psi.Arguments = " share " & Descrizione & "=" & CartellaCondividere & " /UNLIMITED"
Process.Start(psi)
'Process.GetCurrentProcess.WaitForExit(2000) 'Aspetta 2 secondi
Process.GetCurrentProcess.WaitForExit() 'Aspetta fino a quando non ha finito il processo
Catch
MsgBox("Errore Condivisione Cartella", vbCritical, "ERRORE")
End Try
End Sub