När jag listar mappar från en server i nätverket, skrivs alltid å, ä, ö ut konstigt.

Det är en konsolapplikation jag använder.

Får liknande problem när jag öppnar excel-filer och skall gå igenom alla kalkylblad.
De som heter något med å, ä, ö fungerar inte bra då.

Kan man sätta charmap:en eller liknande för att få det att fungera?

Troligen är det någon miss med encoding någonstanns. Om du kan ange encoding någonstanns så skapa en egen för ISO.8859-1 och använd den sen.

Dim enc As Encoding = Encoding.GetEncoding("iso-8859-1")

Har inte lyckats hitta det någonstans...

Funktionen ser ut så här:

   ' getFoldersRec, lägger till alla mappar i en given lista (rekursivt)
    ' Parametrar: (String, String, ArrayList) -> strPath - mapp/sökväg, strRestriction - ta bara med mappar vars sökväg innehåller den givna strängen, alFolders - befintliga mappar
    ' Returvärden: (ArrayList) -> Lista med alla mappar som hittades
    ' Exempel: getFoldersRec("C:\nät","nätdokumentation",alFolders) -> Lägger till alla mappar där sökvägen innehåller "nätdokumentation" i den givna listan
    Public Function getFoldersRec(ByVal strPath As String, ByVal strRestriction As String, ByVal alFolders As ArrayList) As ArrayList

        Dim objDir As Directory
        Dim objFolders As String()
        Dim objFolder As String

        Console.WriteLine(strPath)

        Try
            objFolders = objDir.GetDirectories(strPath)
        Catch ex As Exception
            Console.WriteLine("getFolders(), " & ex.Message)
        End Try

        If Not objFolders Is Nothing Then
            For Each objFolder In objFolders

                If strRestriction.Length > 0 Then
                    If objFolder.ToLower.IndexOf(strRestriction) > 0 Then _
                        alFolders.Add(objFolder)
                Else
                    alFolders.Add(objFolder)
                End If

                alFolders = getFoldersRec(objFolder, strRestriction, alFolders)
            Next
        End If

        Return alFolders

    End Function