copy and then Delete a file.

[Petter L]

I getting the following message when using Filecopy command
An unhandled exception of type 'System.NullRef erenceException ' occurred in
Unknown Module.

Additional information: Object reference not set to an instance of an
object.

If I break then I get "There is no source code avaliable for the current
location.
If I Continue I get the following

An unhandled exception of type 'System.Unautho rizedAccessExce ption' occurred
in microsoft.visua lbasic.dll

Additional information: Access to the path "c:\test\Adshel After850-51.jpg"
is denied.

I have not the file loaded in any programs or looking on that file location.
I have full admin rights localy on my computer. The task is to watch for
files put in Directoy c:\A and then move it to c:\B at the moment.

Have someone any clue to what is wrong her ?

Petter L.

[Cor Ligthert]

Petter,

A nullreference is almost forever a non instanced object.
However the rest probably nobody can see without a little piece of code.

I hope this starts helps?

Cor

[Petter L]

Here is a pice of the code
Private m_WatchDirector y As String

Private WithEvents m_FileSystemWat cher As FileSystemWatch er

Dim log As New Log

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load

lstFiles.Items. Add(Now.ToStrin g() & " Starting")

readReg()

log.lstFiles.It ems.Add(Now.ToS tring() & " Init " & LookPath)

log.lstFiles.It ems.Add(Now.ToS tring() & " Init " & ToPath)

' Get the path to the directory we will watch.

m_WatchDirector y = LookPath 'Application.St artupPath

' m_WatchDirector y = m_WatchDirector y.Substring(0,
m_WatchDirector y.LastIndexOf(" \"))

'm_WatchDirecto ry &= LookPath '"\Files"

' Make the FileSystemWatch er.

m_FileSystemWat cher = New FileSystemWatch er(m_WatchDirec tory, "*.*") '
"*.txt")

m_FileSystemWat cher.NotifyFilt er = 0

m_FileSystemWat cher.NotifyFilt er = m_FileSystemWat cher.NotifyFilt er Or
NotifyFilters.F ileName

m_FileSystemWat cher.EnableRais ingEvents = True

m_FileSystemWat cher.IncludeSub directories = alldirs

' Process any files that already exist.

MsgBox(m_WatchD irectory)

ProcessExisting Files(m_WatchDi rectory)
End Sub

Private Sub ProcessExisting Files(ByVal directory_name As String)

Dim dir_info As New DirectoryInfo(d irectory_name)

Dim file_infos As FileInfo() = dir_info.GetFil es()

For Each fi As FileInfo In file_infos

ProcessFile(fi. FullName, fi.Name)

Next fi

End Sub

Private Sub ProcessFile(ByV al file_name As String, ByVal shName As String)

log.lstFiles.It ems.Add(Now.ToS tring() & " Processed " & file_name)

If shName = "\Thumbs.db " Then ' = LCase(file_name ) Then

Exit Sub

End If

MsgBox(file_nam e & " " & ToPath & "\" & shName)

FileCopy(file_n ame, ToPath & "\" & shName)

Kill(file_name)

End Sub

I also have the following in a module file

Public LookPath, ToPath As String

Public AllDirs As Boolean

Petter L.
"Cor Ligthert" <no************ @planet.nl> wrote in message
news:uR******** ******@TK2MSFTN GP15.phx.gbl...

Petter,

A nullreference is almost forever a non instanced object.
However the rest probably nobody can see without a little piece of code.

I hope this starts helps?

Cor

[Cor Ligthert]

Peter,

When you want to give us some code to help you, than please make it
readable, all rows which are deleted with a ', makes it for others even more
unreadable what your code is now.

And than past it fist in a notebook, and than copy it back before you paste
it in your message.

When I look at your code am I directly thinking why is Peter not using the
File class to do things as deleting files.

http://msdn.microsoft.com/library/de...eletetopic.asp

I hope this helps somehow?

Cor
"Petter L" <petter at ho**@hotmail.co m>

Here is a pice of the code
Private m_WatchDirector y As String

Private WithEvents m_FileSystemWat cher As FileSystemWatch er

Dim log As New Log

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load

lstFiles.Items. Add(Now.ToStrin g() & " Starting")

readReg()

log.lstFiles.It ems.Add(Now.ToS tring() & " Init " & LookPath)

log.lstFiles.It ems.Add(Now.ToS tring() & " Init " & ToPath)

' Get the path to the directory we will watch.

m_WatchDirector y = LookPath 'Application.St artupPath

' m_WatchDirector y = m_WatchDirector y.Substring(0,
m_WatchDirector y.LastIndexOf(" \"))

'm_WatchDirecto ry &= LookPath '"\Files"

' Make the FileSystemWatch er.

m_FileSystemWat cher = New FileSystemWatch er(m_WatchDirec tory, "*.*") '
"*.txt")

m_FileSystemWat cher.NotifyFilt er = 0

m_FileSystemWat cher.NotifyFilt er = m_FileSystemWat cher.NotifyFilt er Or
NotifyFilters.F ileName

m_FileSystemWat cher.EnableRais ingEvents = True

m_FileSystemWat cher.IncludeSub directories = alldirs

' Process any files that already exist.

MsgBox(m_WatchD irectory)

ProcessExisting Files(m_WatchDi rectory)
End Sub

Private Sub ProcessExisting Files(ByVal directory_name As String)

Dim dir_info As New DirectoryInfo(d irectory_name)

Dim file_infos As FileInfo() = dir_info.GetFil es()

For Each fi As FileInfo In file_infos

ProcessFile(fi. FullName, fi.Name)

Next fi

End Sub

Private Sub ProcessFile(ByV al file_name As String, ByVal shName As String)

log.lstFiles.It ems.Add(Now.ToS tring() & " Processed " & file_name)

If shName = "\Thumbs.db " Then ' = LCase(file_name ) Then

Exit Sub

End If

MsgBox(file_nam e & " " & ToPath & "\" & shName)

FileCopy(file_n ame, ToPath & "\" & shName)

Kill(file_name)

End Sub

I also have the following in a module file

Public LookPath, ToPath As String

Public AllDirs As Boolean

Petter L.
"Cor Ligthert" <no************ @planet.nl> wrote in message
news:uR******** ******@TK2MSFTN GP15.phx.gbl...

Petter,

A nullreference is almost forever a non instanced object.
However the rest probably nobody can see without a little piece of code.

I hope this starts helps?

Cor

[Chris]

Is it possible that the process that is writing the file is not
finished when the FileSystemWatch er attempts to move the file?

You might try opening the file in exclusive mode first and if that
succeeds, then try moving the file. If that fails, wait a few seconds
and try again.

Just a thought