VB | Varinder Sandhu https://varindersandhu.in Keep it Simple and Smart Fri, 14 Jun 2013 17:11:43 +0000 en-US hourly 1 https://wordpress.org/?v=6.8.3 https://varindersandhu.in/wp-content/uploads/2020/05/varindersandhu_favicon.ico VB | Varinder Sandhu https://varindersandhu.in 32 32 22788835 Recursive Directory Info https://varindersandhu.in/2010/10/23/recursive-directory-info/ Sat, 23 Oct 2010 05:58:00 +0000 http://theitarticles.wordpress.com/2010/10/23/recursive-directory-info 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

The post Recursive Directory Info first appeared on Varinder Sandhu.

]]> 69 Read Data from Excel (VB Code) https://varindersandhu.in/2010/09/27/read-data-from-excel-vb-code/ https://varindersandhu.in/2010/09/27/read-data-from-excel-vb-code/#comments Mon, 27 Sep 2010 05:11:00 +0000 http://theitarticles.wordpress.com/2010/09/27/read-data-from-excel-vb-code 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

The post Read Data from Excel (VB Code) first appeared on Varinder Sandhu.

]]> https://varindersandhu.in/2010/09/27/read-data-from-excel-vb-code/feed/ 2 27 VB Code for Log or Tracking https://varindersandhu.in/2010/09/26/vb-code-for-log-or-tracking/ Sun, 26 Sep 2010 04:38:00 +0000 http://theitarticles.wordpress.com/2010/09/26/vb-code-for-log-or-tracking 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; "

The post VB Code for Log or Tracking first appeared on Varinder Sandhu.

]]> 24