Hola a todos! bueno paso a comentarles mi problemita por si alguien puede orientarme un poco, NO soy programador ni nada por el estilo, soy DBA MSSQL y queria realizar una pequeña aplicacion para generar los scripts de generacion de los Jobs de un servidor determinado (Seleccionado mediante un ListBox). Encare el proyecto entusiasmado y me resulto bastante gratificante llegar al objetivo. Pero con alguno servers la aplicacion me genera problemas, y viene según el debug por el Path.. (No tengo problemas con permisos de Dominio ni de DB)
Detallo el codigo problematico y al final el error que me da solo en ciertos servidores:
Private Sub btnConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnect.Click
If Me.Combo.Text = "" Then
MessageBox.Show("La clasificacion debe ser proporcionada", "Datos en blanco")
Exit Sub
Else
Directory.CreateDirectory("\\C1000zaas0041\DBASQL\ " & Me.Combo.SelectedItem & "\" & Me.lstSQLServers.SelectedItem & "\" & "Jobs")
End If
Dim ConServer As New SQLDMO.SQLServer
Dim Mapeo As String
Dim Clasificacion As String
Dim Servidor As String
Dim NumConexion As Byte
Dim Ruta As String
Dim Carpeta As String
Dim Server As String
Server = Me.lstSQLServers.SelectedItem
Mapeo = "\\C1000zaas0041\DBASQL\"
Clasificacion = Me.Combo.SelectedItem & "\"
Servidor = Me.lstSQLServers.SelectedItem & "\"
Carpeta = "Jobs\"
Ruta = Mapeo & Clasificacion & Servidor & Carpeta
ConServer = CreateObject("SQLDMO.SQLServer")
ConServer.LoginSecure = True
ConServer.LoginTimeout = 40
ConServer.Connect(Server)
NumConexion = ConServer.ProcessID
btnConnect.Enabled = False
TextBox2.Text = Server
TextBox3.Text = NumConexion
Dim oJob As SQLDMO.Job
Dim strStreamW As Stream
Dim strStreamWriter As StreamWriter
For Each oJob In ConServer.JobServer.Jobs
strStreamW = File.OpenWrite(Ruta & oJob.Name & ".txt")
strStreamWriter = New StreamWriter(strStreamW, _
System.Text.Encoding.UTF8)
strStreamWriter.WriteLine("--Nombre Job: " & oJob.Name)
strStreamWriter.WriteLine(oJob.Script)
strStreamWriter.Close()
Next
MessageBox.Show("Los scripts correspondientes se alojaron en: " & Ruta, "Proceso completado")
ConServer = Nothing
End Sub
************************************************** *****
ERROR:
El error me genera en parte algunos Jobs en la carpeta destino generada.
La linea señalada por el Debug es:
strStreamW = File.OpenWrite(Ruta & oJob.Name & ".txt")
{"The given path's format is not supported."}
Debugeado variable Ruta: "\\C1000zaas0041\DBASQL\Produccion\C1000ZAAS0028\J obs\"
Saludos!!!!
