Forums Neueste Beiträge
 

Windows Dienstanwendung Filezugriff auf Remoteserver

25/01/2008 - 12:06 von Veruhl | Report spam
Hallo zusammen,

ich bastel gerade an einer kleinen Windows-Dienst Anwendung.
Ich möchte damit Textfiles von einem Lokalen Verzeichniss auf ein
Verzeichniss auf einem Remoteserver Kopieren.

Folgender Code làuft z.Zt in einem Timer-Event:

m_strSearchPath = "c:\Quelle"
m_strDestinationPath = "\\Server\Freigabe"
m_strExtension = "Dat"

Dim Dir As New System.IO.DirectoryInfo(m_strSearchPath)
Dim Files() As System.IO.FileInfo = Dir.GetFiles
Dim File As System.IO.FileInfo
For Each File In Files
If File.Extension.ToUpper = "." & m_strExtension.ToUpper Then
File.MoveTo(m_strDestinationPath & "\" & File.Name)
End If
Next

Der Dienst làuft unter dem Benutzer "Lokales System"
Was muss ich auf dem Server (Windows 2003 Web Edition, Kein Active
Directory) einstellen(Benutzer, Freigabe ect...) damit der Zugriff klappt
und ich die Textfiles kopieren kann ?

Danke für eure Hilfe!
 

Lesen sie die antworten

#1 Peter Fleischer
26/01/2008 - 08:59 | Warnen spam
"Veruhl" schrieb im Newsbeitrag
news:

Der Dienst làuft unter dem Benutzer "Lokales System"
Was muss ich auf dem Server (Windows 2003 Web Edition, Kein Active
Directory) einstellen(Benutzer, Freigabe ect...) damit der Zugriff
klappt
und ich die Textfiles kopieren kann ?



Ich habe das mal getestet mit Jeder-Schreibzugriff auf dem freigegebenen
Laufwerk und kann keine Probleme feststellen. Welche Sicherheit ist denn in
deiner Fraigabe eingestellt?

Hier mein Test:

Option Infer On
Option Strict Off

Public Module Module1
Public Sub Main()
Dim m_strSearchPath = "c:\temp\Quelle"
Dim m_strDestinationPath = "\\server\me\temp"
Dim m_strExtension = "txt"

Dim Dir = New System.IO.DirectoryInfo(m_strSearchPath)
For Each File In Dir.GetFiles
If File.Extension.ToUpper = "." & m_strExtension.ToUpper Then
File.MoveTo(m_strDestinationPath & "\" & File.Name)
End If
Next
Console.ReadLine()
End Sub
End Module


Viele Gruesse

Peter

Ähnliche fragen