Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: az8 en Jueves 15 de Febrero de 2007, 01:09
Título: Compartir Carpeta...
Publicado por: az8 en Jueves 15 de Febrero de 2007, 01:09
hola estoy haciendo un pekeño programa para descompartir carpetas pero no al momento de ejecutarlo no hace nada bueno si hace pero no como yo kiero pongo el codigo...
Dim a As String
Private Sub Command2_Click()
'Establecer Variables strComputer = "."
a = Text1.Text 'Eliminar Recurso Compartido 'Set colShares = objWMIService.ExecQuery("Select * from Win32_Share Where Name = 'C'") Set colShares = objWMIService.ExecQuery("Select * from Win32_Share Where Name = 'a'") For Each objShare In colShares objShare.Delete Next
End Sub
Private Sub Form_Load() Text1.Text = "test1" 'a = Text1.Text End Sub
con este codigo no hace nada???? pero con este otro si lo hace sin problemas Dim a As String
Private Sub Command2_Click()
'Establecer Variables strComputer = "."
'Establecer Equipo donde se creara el Recurso Compartido Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
'Eliminar Recurso Compartido 'Set colShares = objWMIService.ExecQuery("Select * from Win32_Share Where Name = 'C'") Set colShares = objWMIService.ExecQuery("Select * from Win32_Share Where Name = 'test1'") ' le tengo ke poner el nombre directamente para ke lo haga .....For Each objShare In colShares objShare.Delete Next
End Sub
y lo kiero hacer como el primer codigo espero me ayuden.... GRACIAS
Título: Re: Compartir Carpeta...
Publicado por: luciano2 en Jueves 15 de Febrero de 2007, 01:47
Hola, estás poniendo mal las comillas
probalo asi
Código: Text
Text1.Text = "Tu Recurso compartido"
Set colShares = objWMIService.ExecQuery("Select * from Win32_Share Where Name = '" & Text1.Text & "' ")