ASP.NET pisanje datoteke

Private Function mapDrive(ByVal folder As String, ByVal driveLetter As Char, Optional ByVal disconnect As Boolean = False) As Boolean

Dim loProcess As Process
Dim loProcessStartInfo As ProcessStartInfo

Dim liProcessTimeOutMilliseconds As Integer = 10000 'cas v katerem se mora proces koncati (10s)
Dim lsOutput As String
Dim lsError As String

' inicializaicja
lsOutput = String.Empty
lsError = String.Empty

Dim strShare As String
If disconnect Then
strShare = " use " & driveLetter & ": /delete "
Else
strShare = " use " & driveLetter & ": " & Config.networkPath & folder & " " & Config.networkPassword & " /user:" + Config.networkUsername
End If

loProcessStartInfo = New ProcessStartInfo("net", strShare)

loProcessStartInfo.WindowStyle = ProcessWindowStyle.Hidden
loProcessStartInfo.CreateNoWindow = True
loProcessStartInfo.UseShellExecute = False
loProcessStartInfo.RedirectStandardInput = True
loProcessStartInfo.RedirectStandardOutput = True
loProcessStartInfo.RedirectStandardError = True

'zaženemo process
loProcess = Process.Start(loProcessStartInfo)
If (loProcess.WaitForExit(liProcessTimeOutMilliseconds)) Then

'process se je zakljuèil normalno
lsOutput = loProcess.StandardOutput.ReadToEnd()
lsError = loProcess.StandardError.ReadToEnd()
If Not lsOutput.Equals(String.Empty) Then cLog.AddToLog(lsOutput.Trim())
If lsError.Equals(String.Empty) Then Return True
cLog.AddToLog(lsError.Trim())
Return False
Else

' proces se je obesil
' ga ustavimo
lsOutput = String.Empty
cLog.AddToLog("Map Net Drive timed out after " & liProcessTimeOutMilliseconds.ToString() & " milliseconds")

loProcess.Kill()
Return False

End If
End Function

Če sta spletni in datotečni strežnik v domeni, potem preveri:
- da deluje AppPool te aplikacije v kontekstu NetworkService.
- da ima up. ime spletnega strežnika (RACUNALNIK$) ustrezne pravice na deljenem imeniku.