Category: VB

Recursive Directory Info

Varinder Sandhu, VB

Imports System Imports System.IO Public Class MainClass Shared Sub Main() Dim nameOfDirectory As String = "C:" Dim myDirectory As DirectoryInfo myDirectory = New DirectoryInfo(nameOfDirectory) WorkWithDirectory(myDirectory) End Sub Shared Public Sub WorkWithDirectory(ByVal aDir As DirectoryInfo) Dim nextDir As DirectoryInfo WorkWithFilesInDir(aDir) For Each nextDir In aDir.GetDirectories WorkWithDirectory(nextDir) Next End Sub Shared Public Sub WorkWithFilesInDir(ByVal aDir As DirectoryInfo) Dim aFile As FileInfo For Each aFile In aDir.GetFiles() Console.WriteLine(aFile.FullName) Next End Sub End Class

» Read more
,

Read Data from Excel (VB Code)

Varinder Sandhu, VB

Private Sub cmd_browse_Click() On Error Resume Next Dim FNum As Integer Dim txt As Recordset On Error GoTo FileError CommonDialog1.CancelError = True CommonDialog1.Flags = cdlOFNFileMustExist CommonDialog1.DefaultExt = “xls” CommonDialog1.Filter = “Excel file|*.xls|*.*” CommonDialog1.ShowOpen FNum = FreeFile pathtxt.Text = CommonDialog1.FileName Close #FNum Dim cnExcel As New ADODB.Connection Dim rs As New ADODB.Recordset With cnExcel .Provider = “Microsoft.Jet.OLEDB.4.0” ‘.ConnectionString = “Data Source=” & App.Path & “Contact.xls;” & “Extended Properties=Excel 8.0;” .ConnectionString = “Data Source='” & pathtxt.Text & “‘;Extended Properties=Excel 8.0;” .Open End

» Read more

VB Code for Log or Tracking

Varinder Sandhu, VB

Dim LFNum As Integer Dim PLFName As String ‘blnfileopen As Boolean Public Sub OpenFile() LFNum = FreeFile PLFName = App.Path & “proglog” & Format(Day(Date), “00”) & Format(Hour(Time), “00”) & Format(Minute(Time), “00”) & Format(Second(Time), “00”) & “.txt” Open PLFName For Output As LFNum Print #LFNum, “Logging Started at…..” & Date; ” “; Time Print #LFNum, “” ‘blnfileopen = True End Sub Public Sub LogData(msg As String) ‘If Not blnfileopen Then OpenFile Print #LFNum, msg End Sub Public Sub closefile() Print #LFNum,

» Read more