the error it gives is: System.InvalidOperationException
any help apreciated.
thnx
Code: Select all
Imports System
Imports System.IO
Public Class form1
Public Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Int32) As UShort
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ufficiotecnico()
End Sub
Private Sub ufficiotecnico()
Dim d As String
Dim Folder As String = "0"
Dim subf As String = "0"
Dim search As String = TextBox1.Text
If search = "" Then
search = "qwertz"
End If
If (Directory.Exists("Z:\001 Progetti\2008")) Then
For Each d In Directory.GetDirectories("Z:\001 Progetti\2008", search & "*")
Folder = d
Next
End If
If (Directory.Exists("Z:\001 Progetti\2009")) Then
For Each d In Directory.GetDirectories("Z:\001 Progetti\2009", search & "*")
Folder = d
Next
End If
If (Directory.Exists("Z:\001 Progetti\2010")) Then
For Each d In Directory.GetDirectories("Z:\001 Progetti\2010", search & "*")
Folder = d
Next
End If
If (Directory.Exists("Z:\001 Progetti\2011")) Then
For Each d In Directory.GetDirectories("Z:\001 Progetti\2011", search & "*")
Folder = d
Next
End If
If (Directory.Exists("Z:\001 Progetti\2012")) Then
For Each d In Directory.GetDirectories("Z:\001 Progetti\2012", search & "*")
Folder = d
Next
End If
If (Directory.Exists("Z:\001 Progetti\2013")) Then
For Each d In Directory.GetDirectories("Z:\001 Progetti\2013", search & "*")
Folder = d
Next
End If
If (Directory.Exists("Z:\001 Progetti\2014")) Then
For Each d In Directory.GetDirectories("Z:\001 Progetti\2014", search & "*")
Folder = d
Next
End If
If (Directory.Exists("Z:\001 Progetti\2015")) Then
For Each d In Directory.GetDirectories("Z:\001 Progetti\2015", search & "*")
Folder = d
Next
End If
If (Directory.Exists("Z:\001 Progetti\2016")) Then
For Each d In Directory.GetDirectories("Z:\001 Progetti\2016", search & "*")
Folder = d
Next
End If
If (Directory.Exists("Z:\001 Progetti\2017")) Then
For Each d In Directory.GetDirectories("Z:\001 Progetti\2017", search & "*")
Folder = d
Next
End If
If (Directory.Exists("Z:\001 Progetti\2018")) Then
For Each d In Directory.GetDirectories("Z:\001 Progetti\2018", search & "*")
Folder = d
Next
End If
If (Directory.Exists("Z:\001 Progetti\2019")) Then
For Each d In Directory.GetDirectories("Z:\001 Progetti\2019", search & "*")
Folder = d
Next
End If
If (Directory.Exists("Z:\001 Progetti\2020")) Then
For Each d In Directory.GetDirectories("Z:\001 Progetti\2020", search & "*")
Folder = d
Next
End If
If Folder <> "0" Then
If ComboBox1.Text = "Disegni" Then
subf = "01 Disegni"
ElseIf ComboBox1.Text = "Documentazione" Then
subf = "02 Documentazione"
Else
subf = "100 CD"
End If
Process.Start("explorer.exe", Folder & "\" & subf)
Else
MsgBox("Cartella non trovata.")
End If
End Sub
Private Sub tecnicocomm()
Dim d As String
Dim Folder As String = "0"
Dim search As String = TextBox2.Text
If search = "" Then
search = "qwertz"
End If
If (Directory.Exists("T:\001 Offerte\001 Offerte per Progetti\2008")) Then
For Each d In Directory.GetDirectories("T:\001 Offerte\001 Offerte per Progetti\2008", search & "*")
Folder = d
Next
End If
If (Directory.Exists("T:\001 Offerte\001 Offerte per Progetti\2009")) Then
For Each d In Directory.GetDirectories("T:\001 Offerte\001 Offerte per Progetti\2009", search & "*")
Folder = d
Next
End If
If (Directory.Exists("T:\001 Offerte\001 Offerte per Progetti\2010")) Then
For Each d In Directory.GetDirectories("T:\001 Offerte\001 Offerte per Progetti\2010", search & "*")
Folder = d
Next
End If
If (Directory.Exists("T:\001 Offerte\001 Offerte per Progetti\2011")) Then
For Each d In Directory.GetDirectories("T:\001 Offerte\001 Offerte per Progetti\2011", search & "*")
Folder = d
Next
End If
If (Directory.Exists("T:\001 Offerte\001 Offerte per Progetti\2012")) Then
For Each d In Directory.GetDirectories("T:\001 Offerte\001 Offerte per Progetti\2012", search & "*")
Folder = d
Next
End If
If (Directory.Exists("T:\001 Offerte\001 Offerte per Progetti\2013")) Then
For Each d In Directory.GetDirectories("T:\001 Offerte\001 Offerte per Progetti\2013", search & "*")
Folder = d
Next
End If
If (Directory.Exists("T:\001 Offerte\001 Offerte per Progetti\2014")) Then
For Each d In Directory.GetDirectories("T:\001 Offerte\001 Offerte per Progetti\2014", search & "*")
Folder = d
Next
End If
If (Directory.Exists("T:\001 Offerte\001 Offerte per Progetti\2015")) Then
For Each d In Directory.GetDirectories("T:\001 Offerte\001 Offerte per Progetti\2015", search & "*")
Folder = d
Next
End If
If (Directory.Exists("T:\001 Offerte\001 Offerte per Progetti\2016")) Then
For Each d In Directory.GetDirectories("T:\001 Offerte\001 Offerte per Progetti\2016", search & "*")
Folder = d
Next
End If
If (Directory.Exists("T:\001 Offerte\001 Offerte per Progetti\2017")) Then
For Each d In Directory.GetDirectories("T:\001 Offerte\001 Offerte per Progetti\2017", search & "*")
Folder = d
Next
End If
If (Directory.Exists("T:\001 Offerte\001 Offerte per Progetti\2018")) Then
For Each d In Directory.GetDirectories("T:\001 Offerte\001 Offerte per Progetti\2018", search & "*")
Folder = d
Next
End If
If (Directory.Exists("T:\001 Offerte\001 Offerte per Progetti\2019")) Then
For Each d In Directory.GetDirectories("T:\001 Offerte\001 Offerte per Progetti\2019", search & "*")
Folder = d
Next
End If
If (Directory.Exists("T:\001 Offerte\001 Offerte per Progetti\2020")) Then
For Each d In Directory.GetDirectories("T:\001 Offerte\001 Offerte per Progetti\2020", search & "*")
Folder = d
Next
End If
If Folder <> "0" Then
Process.Start("explorer.exe", Folder)
Else
MsgBox("Cartella non trovata.")
End If
End Sub
Private Sub TextBox1_Textenter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.KeyDown
If (GetAsyncKeyState(Keys.Enter)) Then
Button1.Focus()
ufficiotecnico()
End If
End Sub
Private Sub TextBox2_Textenter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.KeyDown
If (GetAsyncKeyState(Keys.Enter)) Then
Button1.Focus()
tecnicocomm()
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
tecnicocomm()
End Sub
End Class