VB.NET Service Delete files

Hi

Jeg har lavet en service der skal delete alle filer i en folder..
Når jeg køre det fra console køre det fint...
Min service installere også ok, men den deleter ikke filerne.
Har prøvet at køre den som local og administrator service...
Her er min lille service som køre på en timer.

Imports system.IO

Public Class Service1

    Protected Overrides Sub OnStart(ByVal args() As String)
        ' Add code here to start your service. This method should set things
        ' in motion so your service can do its work.
        Timer1.Enabled = True

    End Sub

    Protected Overrides Sub OnStop()
        ' Add code here to perform any tear-down necessary to stop your service.
        Timer1.Enabled = False

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Console.WriteLine("Folder created:")

        Dim Path As String = "M:\Delete\"
        Dim aFiles() As String = System.IO.Directory.GetFiles(Path)
        For Each sFile As String In aFiles
            ' delete the file...
            System.IO.File.Delete(sFile)
        Next

    End Sub


End Class