Programación General > Visual Basic 6.0 e inferiores

 Compartir Carpeta...

(1/1)

az8:
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

luciano2:
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 & "' ")   

..saludos


-----------------------

Recursos visual basic

Navegación

[0] Índice de Mensajes