Ciao a tutti,
Sto creando un piccolo programmino in VB con un bottone che dovrebbe eseguire uno script.
E questo funziona senza problemi
Ma se io volessi eseguire lo script direttamente da vb? cioè senza chiamare il VBS? Ho provato questo:
Ma purtroppo non gli piace il ciclo for... o per meglio dire non gli piace il Wscript.Echo
Ho provato a sostituire tutto con questo:
Ma anche questo non sembra andare bene.
Ho provato anche a stampare la variabile objDrive in un msgbox ma (ovviamente) non me lo stampa in quanto è dichiarato come oggetto.
Qualcuno mi sa dare una mano?!
Grazie
Sto creando un piccolo programmino in VB con un bottone che dovrebbe eseguire uno script.
Codice:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim wsh
wsh = CreateObject("WScript.Shell")
wsh.run("C:\users\ripper\Desktop\prova.vbs")
End Sub
End ClassMa se io volessi eseguire lo script direttamente da vb? cioè senza chiamare il VBS? Ho provato questo:
Codice:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim objdisco, colDischi
objdisco = CreateObject("Scripting.FileSystemObject")
colDischi = objdisco.Drives
For Each objDrive In colDischi
Wscript.Echo("Lettera disco: " & objDrive.DriveLetter)
Next
End Sub
End ClassHo provato a sostituire tutto con questo:
Codice:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim wsh
wsh = CreateObject("WScript.Shell")
Dim objdisco, colDischi
objdisco = CreateObject("Scripting.FileSystemObject")
colDischi = objdisco.Drives
For Each objDrive In colDischi
wsh.Echo("Lettera disco: " & objDrive.DriveLetter)
Next
End Sub
End ClassHo provato anche a stampare la variabile objDrive in un msgbox ma (ovviamente) non me lo stampa in quanto è dichiarato come oggetto.
Qualcuno mi sa dare una mano?!
Grazie