Categorie: Mappen Bestanden

Over Mappen en Bestanden

In ieder programma wordt er gebruik gemaakt van Mappen en bestanden, soms bestaan Mappen of moeten deze via het programma aangemaakt worden. Het komt ook veelvuldig voor dat men moet controleren indien een bepaald bestand bestaat.
Hier enkele mogelijkheden.

Bemerk dat in de class of module de namespace System.IO moet geïmporteerd worden.
Imports System.IO
Public Class clsMapBest

Public Shared Sub sMapContr(ByVal strPad As String)
 'controleer indien een Map of Mappen-structuur bestaat zoniet creeër
Try
If Directory.Exists(strPad) Then
MessageBox.Show(strPad & " bestaat reeds !", "Info Map", MessageBoxButtons.OK)
Else
Dim map As DirectoryInfo = Directory.CreateDirectory(strPad)
MessageBox.Show("Map " & strPad & " aangemaakt!", "Info Map", MessageBoxButtons.OK)
End If
Catch ex As Exception
Dim strInfo As String = "Operatie map aanmaken mislukt : " & ex.Message
End Try
End Sub

Public Shared Function fBestaatBest(ByVal strPadBest As String) As Boolean
If File.Exists(strPadBest) Then
Return True
Else
Return False
End If
End Function