Frågan#1
Tjena, jag har en funktion som rekursivt gå igenom mappen man står i samt alla underliggande mappar. Den fungerar när man söker på t.ex. C:.
Problemet är dock att jag vill kunna kolla igenom mapparna på en server på nätverket, men hur jag än skriver in sökvägen så blir det fel.
Någon som har lösning på detta problem?
Imports System
Imports System.IO
Public Class test
Inherits System.Web.UI.Page
Dim sPath As String = "c:/inetpub/wwwroot" '<-- Detta fungerar, men hur kommer jag åt servern??
Dim oFS = Server.CreateObject("Scripting.FileSystemObject")
Dim oFolder = oFS.GetFolder(sPath)
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
Dim storefile As Directory
Dim directory As String
Dim files As String()
Dim File As String
Call showFolders(oFolder, sPath, 0)
oFolder = Nothing
oFS = Nothing
End Sub
Function showFolders(ByVal oFolder, ByVal sPath, ByVal iLevel)
Dim oItem
Dim sTPath
Dim iInt
For Each oItem In oFolder.subFolders
For iInt = 0 To iLevel
response.write("-")
Next
response.write(oItem.name & "<br>")
sTPath = sPath & "\" & oItem.Name
Call showFolders(oFS.GetFolder(sTPath), sTPath, iLevel + 1)
Next
End Function
Felet jag får när jag har testat med diverse olika alternativ är:
Undantag från HRESULT: 0x800A004C (CTL_E_PATHNOTFOUND).
Beskrivning: Ett undantag som inte kunde hanteras inträffade när den aktuella webbegäran kördes.
Mer information om felet och var i koden det uppstod finns i stackspårningen.
Undantagsinformation: System.IO.DirectoryNotFoundException: Undantag från HRESULT: 0x800A004C (CTL_E_PATHNOTFOUND).