Crear archivo txt

Dim archivo As String = "archivo.txt" 
If Not File.Exists(archivo) Then
            Dim sr As New StreamWriter(archivo)
            sr.Close()
            sr.Dispose()
        End If

Obtener dato de un nodo xml

Public Function nodo(ByVal archivo As String, ByVal tag As String, ByVal deep As Integer) As String
        Dim sr As New StreamReader(Directory.GetCurrentDirectory & "\" & Form1.sdp & archivo, Encoding.UTF8)
        Dim i As Integer = 0
        Dim dato As String = ""
        Dim linea As String = sr.ReadLine()
        While linea IsNot Nothing
            If linea.Contains(tag) Then
                i += 1
            End If
            If i = deep Then
                dato = linea.Substring(tag.Length, linea.Length - 2 * tag.Length - 1)
                Exit While
            End If
            linea = sr.ReadLine().Trim
        End While
        sr.Close()
        sr.Dispose()
        Return dato
    End Function

Leer tabla sql

Dim query As String = "SELECT * FROM tabla"
        Try
            Dim con As New SqlConnection(conex)
            con.Open()
            Dim cmd As New SqlCommand(query, con)
            Dim dr As SqlDataReader = cmd.ExecuteReader()
            While dr.Read
                Dim id As String = dr.GetValue(0).ToString.Trim
                Dim name As String = dr.GetValue(1).ToString.Trim
                Dim code As String = dr.GetValue(2).ToString.Trim
                
            End While
            dr.Close()
            con.Close()
        Catch ex As Exception
        End Try

Verificar si el archivo existe

If File.Exists(Directory.GetCurrentDirectory & "\" & archivo) Then
Dim sr As New StreamReader(Directory.GetCurrentDirectory & "\" & archivo)
sr.Close()
sr.Dispose()
Else
' El archivo no se encuentra
End If

Si el archivo no existe

If Not File.Exists() Then

End If

Hora y fecha

' hora:minutos:segundos:milisegundos
  Now.ToString("HH:mm:ss:fff")

' año-mes-dia
  Now.ToString("yyyy-MM-dd")

querys

link

version SQL

SELECT @@VERSION

Números aleatorios

' Ejemplo, números aleatorios entre 1 y 10
Dim rnd As New Random()
Dim x As Integer = 1
Dim y As Integer = 10
MessageBox.Show(rnd.Next(x, y + 1))

Obtener archivos con determinada extensión

 Dim dir As String = Directory.GetCurrentDirectory()
 Dim files() As String = Directory.GetFiles(dir, "*.*")

.Where(Function(s) s.EndsWith(".csv") OrElse s.EndsWith(".xml")).ToArray()