Visual Basic

For Each str As String In MyData
	'Do Something
Next

<br />
'********************************************************************<br />
' Process: MoveFile<br />
' Input: oldPath, fileName, subDir ['Save'|'Error'], fid, Type ['NEW' | 'UV']<br />
' Output: Move file to destination folder<br />
'********************************************************************<br />
Public Sub MoveFile(ByVal oldPath As String, ByVal fileName As String, ByVal subDir As String, ByVal fid As Integer, ByVal type As String)<br />
        Dim Conn As New SqlConnection(strConn)<br />
        Dim fi As New FileInfo(oldPath)<br />
        Dim targetDir As String = ConfigurationSettings.AppSettings("dirPath" & type).Trim & "\" & subDir<br />
        Dim newPath As String = targetDir & "\" & fileName<br />
        Dim tblStatusName As String = ConfigurationSettings.AppSettings("tblStatusName" & type).Trim<br />
        Dim errorMsg As String<br />
        Dim attempt As Integer = 0<br />
<br />
        If File.Exists(newPath) Then<br />
            'Extra: To ensure delete only normal file (destination folder)<br />
            File.SetAttributes(newPath, FileAttributes.Normal)<br />
            File.Delete(newPath)<br />
        End If<br />
<br />
        'Try for another 5 attempts if meet "it is being used by another process" error<br />
        Do<br />
            Try<br />
                'Set the Read-Only file (source folder) to normal file before move to destination folder<br />
                If File.Exists(oldPath) Then<br />
                    File.SetAttributes(oldPath, FileAttributes.Normal)<br />
<br />
                    'If target folder not exist then create the folder<br />
                    If Not Directory.Exists(targetDir) Then<br />
                        Directory.CreateDirectory(targetDir)<br />
                    End If<br />
                    fi.MoveTo(newPath)<br />
<br />
                    'Log<br />
                    EvtLog("File successfully moved to " & newPath, localhost.EventLogEntryType.Information, 5)<br />
                    DBLog(logTableName, type, oldPath, "File successfully moved to " & newPath, logName, logSource)<br />
                End If<br />
<br />
                GoTo final<br />
<br />
            Catch ex As Exception<br />
                errorMsg = ex.ToString<br />
<br />
                If InStr(errorMsg, "it is being used by another process") <> 0 Then<br />
<br />
                    If attempt <= 5 Then<br />
                        EvtLog("*** Sub MoveFile Attempt " & attempt & " fail(" & oldPath & "): " & ex.ToString, localhost.EventLogEntryType.Error, 15)<br />
                        DBLog(logTableName, type, oldPath, "Sub MoveFile Attempt " & attempt & " fail: " & ex.ToString, logName, logSource)<br />
<br />
                        attempt += 1<br />
<br />
                        'Wait for 30 seconds before go for another attempt<br />
                        Thread.CurrentThread.Sleep(30000)<br />
                    End If<br />
<br />
                Else<br />
                    GoTo email<br />
                End If<br />
            End Try<br />
        Loop While attempt <= 5<br />
.....<br />
.....<br />
.....<br />
End Sub<br />

Dim Conn As New SqlConnection(strConn)