Renombrar archivo

 Microsoft.VisualBasic.FileIO.FileSystem.RenameFile(ruta del archivo y el nombre, nombre_nuevo)
My.Computer.FileSystem.RenameFile("C:\Test.txt", "SecondTest.txt")
fuente
fuente2

transformar query de varias lineas en una sola

Edit → Line Operations → Join Lines

fuente

xml reemplazar parentesis angulares

< and > instead of < and >

fuente

Carpeta respaldo

Public Function folderBkp(ByVal ruta As String) As String
        Dim newFolder As String = Now.ToString("yyyy") & "\" & Now.ToString("MM") & "\" & Now.ToString("dd")
        ruta = ruta & "\" & newFolder
        If Not Directory.Exists(ruta) Then
            Directory.CreateDirectory(ruta)
        End If
        Return ruta
    End Function

Public Function folderBkp(ByVal ruta As String) As String
        ruta = ruta & "\" & Now.ToString("yyyy") & "\" & Now.ToString("MM") & "\" & Now.ToString("dd")
        If Not Directory.Exists(ruta) Then
            Directory.CreateDirectory(ruta)
        End If
        Return ruta
    End Function

Abrir un archivo xml XDocument

Dim doc As XDocument = XDocument.Load("C:\archivo.xml")
Dim xmldoc As New XmlDocument

xmldoc.LoadXml(doc.ToString)

Remover comentarios un xml

Dim xmlregex As String = Regex.Replace(xnode.OuterXml, "<!--.*?-->", String.Empty, RegexOptions.Singleline)

formato fecha

fechaInicial = DateTime.Now.AddMonths(-1).ToString("yyyyMMdd")
fechaFinal = DateTime.Now.ToString("yyyyMMdd")

xml sql <>

Reemplazar en xml < > por !=

Recorrer ComboBox

For Each c As Object In ComboBox.Items
   Message.Box(CStr(c))
Next

Agregar combobox DataGrid

dgv.Rows.Add()

        Dim rowIndex As Integer = 0
        Dim colIndex As Integer = 0
        For rowIndex = 0 To dgv.Rows.Count - 1
            Dim comboBoxCell As New DataGridViewComboBoxCell
            comboBoxCell.Items.Add("Clear Force")
            comboBoxCell.Items.Add("this works")
            comboBoxCell.Items.Add("well")
            comboBoxCell.Value = "Clear Force"
            dgv(1, rowIndex) = comboBoxCell

        Next

dgv(1, 1).Value = "well"


fuente