Keep it Simple and Smart
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
» Read morePrivate 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
» Read moreDim 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; “
» Read moreVarinder Sandhu is using WP-Gravatar