[VB]Verborgen mappen

Public Sub CreateIni(ByVal File As String, Optional ByVal msg As Boolean = False)
        Dim objFileCreate As New System.IO.StreamWriter(File, False)
        ' Hier wil ik de file verborgen aanmaken
        objFileCreate.Close()
        If msg = True Then
            MsgBox("File Created Succesfully!", MsgBoxStyle.OkOnly)
        End If

Public Sub CreateIni(ByVal File As String, Optional ByVal msg As Boolean = False)
        Dim objFileCreate As New System.IO.StreamWriter(File, False)
        ' Hier wil ik de file verborgen aanmaken
        objFileCreate.Close()
        If msg = True Then
            MsgBox("File Created Succesfully!", MsgBoxStyle.OkOnly)
        End If

Dim lTopMost As String = INI.FilterLine(SetDir & SetFile, "TopMost")
' hier roep ik het bestand aan.

Dim lTopMost As String = INI.FilterLine(SetDir & SetFile, "TopMost")
' hier roep ik het bestand aan.

    Public Function FilterLine(ByVal file As String, ByVal startWith As String)

        Dim objReader As New System.IO.StreamReader(file)

        Dim Line As String
        Dim LineAfter As String = ""
        Dim i As Integer = 1

        Do While objReader.Peek() <> -1
            Line = objReader.ReadLine()
            Line.ToString()
            If Line.StartsWith(startWith) Then
                LineAfter = Line
            End If
        Loop
        objReader.Close()
        Return LineAfter
    End Function

Public Function FilterLine(ByVal file As String, ByVal startWith As String)
 
        Dim objReader As New System.IO.StreamReader(file)
 
        Dim Line As String
        Dim LineAfter As String = ""
        Dim i As Integer = 1
 
        Do While objReader.Peek() <> -1
            Line = objReader.ReadLine()
            Line.ToString()
            If Line.StartsWith(startWith) Then
                LineAfter = Line
            End If
        Loop
        objReader.Close()
        Return LineAfter
    End Function

 SetAttr("bestand", vbHidden)

SetAttr("bestand", vbHidden)

Imports System
Imports System.IO

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim myDirectory As DirectoryInfo
        myDirectory = New DirectoryInfo("C:\")
        Dim aFile As FileInfo
        For Each aFile In myDirectory.GetFiles
            If (aFile.Attributes And FileAttributes.Hidden) = FileAttributes.Hidden Then
                Console.WriteLine("FOUND hidden file named " & aFile.FullName)
            End If
        Next
    End Sub

End Class

Imports System
Imports System.IO
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim myDirectory As DirectoryInfo
        myDirectory = New DirectoryInfo("C:\")
        Dim aFile As FileInfo
        For Each aFile In myDirectory.GetFiles
            If (aFile.Attributes And FileAttributes.Hidden) = FileAttributes.Hidden Then
                Console.WriteLine("FOUND hidden file named " & aFile.FullName)
            End If
        Next
    End Sub
 
End Class