Mega Code Archive

 

Categories / VB.Net by API / System

 

String IsNullOrEmpty

Option Strict On Imports System.Collections.ObjectModel Imports System.IO Public Module FileSystem    Public Sub Main()       Dim dirPath As String = "c:\\"       If String.IsNullOrEmpty(dirPath) Then Exit Sub       If Not Directory.Exists(dirPath) Then Exit Sub              Dim dirs As ReadOnlyCollection(Of String) = My.Computer.FileSystem.GetDirectories(dirPath)       For Each dir As String In dirs          Dim dirInfo As DirectoryInfo = New DirectoryInfo(dir)          Console.WriteLine("{0} : Created {1}", dirinfo.Name,dirInfo.CreationTime)       Next    End Sub End Module