Visual Basic

TheGermoz wrote:

data as Double() and not as Variant

dim myThread as new thread(addressof ThreadCodeSubRoutine)
myThread.Start

Delegate Sub UpdateMyForm(byref SomeValue as string)

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       dim MyThread as new thread(addressof MyThreadCode)
       MyThread.start("HI")
 End Sub

 Private MyThreadCode(byval Message as string)
       dim DelegateVariable as new UpdateMyForm(Addressof WriteToLabel)
       me.Invoke(DelegateVariable, Message)
 End Sub

 Private Sub WriteToLabel(byval Message as String)
       label1.Text = Message
 end sub

KreativeKai wrote:

what attributes ...?

KreativeKai wrote:

special names...

for (...) {
    ...
    if (shortName=="Recycle Bin") continue;
    if (shortName=="Trash Can") continue;
    ...
    try {
        ....
    } catch(...) {
        ....
    }
}

<br />
Dim di As DirectoryInfo<br />
For Each di In currentDirectory.GetDirectories()<br />
  Dim strDirectoryName As String = di.Name<br />
  Dim intFoundRB As Integer = strDirectoryName.IndexOf("$RECYCLE.BIN")<br />
  Dim intFoundSV As Integer = strDirectoryName.IndexOf("System Volume Information")<br />
  'Skip $Recycle.Bin or System Volume Information directories<br />
  If (intFoundRB = -1) And (intFoundSV = -1) Then<br />
     Try<br />
        ... Copy logic<br />
     Catch ex As Exception<br />
        ... logic writing to log file for future reference if needed...<br />
     End Try<br />
  End If<br />
Next

If (di.Attributes And FileAttributes.System) = FileAttributes.System Then