Salve a tutti,
la premessa è che con VB sono alle prime armi, anzi con la programmazione in generale sono alle prime armi.
Comunque, ho sviluppato il mio primo programmino in VB 2008 che in ambiente di sviluppo funziona alla grande... posto di seguito il codice che ho scritto:
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
' verifica l'esistenza della cartella di archiviazione
If (Not System.IO.Directory.Exists("D:\marco2\")) Then
System.IO.Directory.CreateDirectory("D:\marco2\")
End If
' creazione array con elenco file *.txt:
Dim d As String = "D:\marco1\"
Dim rootInfo As DirectoryInfo = New DirectoryInfo(d)
Dim f As FileInfo() = rootInfo.GetFiles("*.txt")
' ciclo di spostamento:
For Each fNext In f
My.Computer.FileSystem.MoveFile( _
"D:\marco1\" & fNext.Name, _
"D:\marco2\B_" & fNext.Name)
Next
'qui troviamo il percorso dell'exe e copiamo i file presenti nella cartella che ci interessa
Dim percorso As String = Application.StartupPath
Dim root_Info As DirectoryInfo = New DirectoryInfo(percorso)
Dim c As FileInfo() = root_Info.GetFiles("*.po2")
Dim pathname = "D:\marco1\"
For Each cNext In c
If Dir(pathname) = "" Then
My.Computer.FileSystem.MoveFile( _
(percorso) & "\" & cNext.Name, _
"D:\marco1\" & cNext.Name)
Else : MsgBox("operazione non possibile")
End If
Next
Me.Close()
End Sub
End Class
Però, dopo aver preso il .exe e il file .po2 che mi servono ed averli spostati su un'altra macchina mi da l'errore eccezione non gestita e mi blocca il programma... di seguito vi posto il debug:
Le informazioni su come richiamare il debug JIT (Just-In-Time) anziché questa finestra
sono riportate in fondo al messaggio.
************** Testo dell'eccezione **************
System.IO.IOException: Dispositivo non pronto.
in System.IO.__Error.WinIOError(Int32 errorCode, String maybeFullPath)
in System.IO.Directory.InternalCreateDirectory(String fullPath, String path, DirectorySecurity dirSecurity)
in System.IO.Directory.CreateDirectory(String path, DirectorySecurity directorySecurity)
in prova.Form1.Button1_Click(Object sender, EventArgs e)
in System.Windows.Forms.Control.OnClick(EventArgs e)
in System.Windows.Forms.Button.OnMouseUp(MouseEventAr gs mevent)
in System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
in System.Windows.Forms.Control.WndProc(Message& m)
in System.Windows.Forms.ButtonBase.WndProc(Message& m)
in System.Windows.Forms.Button.WndProc(Message& m)
in System.Windows.Forms.Control.ControlNativeWindow.W ndProc(Message& m)
in System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
************** Assembly caricati **************
mscorlib
Versione assembly: 2.0.0.0
Versione Win32: 2.0.50727.5444 (Win7SP1GDR.050727-5400)
Base di codice: file:///C:/Windows/Microsoft.NET/Framework64/v2.0.50727/mscorlib.dll
----------------------------------------
prova
Versione assembly: 1.0.0.0
Versione Win32: 1.0.0.0
Base di codice: file:///C:/Users/Segnali/Desktop/softLicata/softLicata/prova.exe
----------------------------------------
Microsoft.VisualBasic
Versione assembly: 8.0.0.0
Versione Win32: 8.0.50727.5420 (Win7SP1.050727-5400)
Base di codice: file:///C:/Windows/assembly/GAC_MSIL/Microsoft.VisualBasic/8.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.dll
----------------------------------------
System
Versione assembly: 2.0.0.0
Versione Win32: 2.0.50727.5420 (Win7SP1.050727-5400)
Base di codice: file:///C:/Windows/assembly/GAC_MSIL/System/2.0.0.0__b77a5c561934e089/System.dll
----------------------------------------
System.Windows.Forms
Versione assembly: 2.0.0.0
Versione Win32: 2.0.50727.5420 (Win7SP1.050727-5400)
Base di codice: file:///C:/Windows/assembly/GAC_MSIL/System.Windows.Forms/2.0.0.0__b77a5c561934e089/System.Windows.Forms.dll
----------------------------------------
System.Drawing
Versione assembly: 2.0.0.0
Versione Win32: 2.0.50727.5420 (Win7SP1.050727-5400)
Base di codice: file:///C:/Windows/assembly/GAC_MSIL/System.Drawing/2.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll
----------------------------------------
System.Runtime.Remoting
Versione assembly: 2.0.0.0
Versione Win32: 2.0.50727.5420 (Win7SP1.050727-5400)
Base di codice: file:///C:/Windows/assembly/GAC_MSIL/System.Runtime.Remoting/2.0.0.0__b77a5c561934e089/System.Runtime.Remoting.dll
----------------------------------------
System.Windows.Forms.resources
Versione assembly: 2.0.0.0
Versione Win32: 2.0.50727.4927 (NetFXspW7.050727-4900)
Base di codice: file:///C:/Windows/assembly/GAC_MSIL/System.Windows.Forms.resources/2.0.0.0_it_b77a5c561934e089/System.Windows.Forms.resources.dll
----------------------------------------
mscorlib.resources
Versione assembly: 2.0.0.0
Versione Win32: 2.0.50727.5444 (Win7SP1GDR.050727-5400)
Base di codice: file:///C:/Windows/Microsoft.NET/Framework64/v2.0.50727/mscorlib.dll
----------------------------------------
************** Debug JIT **************
Per attivare il debug JIT, è necessario impostare il valore
jitDebugging nella sezione system.windows.forms del file di configurazione
dell'applicazione o del computer (machine.config).
L'applicazione inoltre deve essere compilata con il debug
attivato.
Ad esempio:
<configuration>
<system.windows.forms jitDebugging="true" />
</configuration>
Quando il debug JIT è attivato, tutte le eccezioni non gestite
vengono inviate al debugger JIT registrato nel computer,
anziché essere gestite da questa finestra di dialogo.
Ringrazio anticipatamente tutti quelli che mi daranno una mano e vi prego di scrivere come se vi rivolgeste ad un bambino di tre anni perchè spesso ho difficoltà ha comprendere termini tecnici etc.
Rispondi quotando
