Hej Låter väldigt konstigt... du försöker inte lista filer i en katalig du inte har rättigheter i då? Posta gärna koden som inte fungerar så man kan testa. Hej Hej Verkar mycket märkligt, vilken rad inträffar felet på? Jag har tyärr ingen möjlighet att testa just nu... Här: For Each Subf1 In Subfc Kan du testa att köra programmet med administratörsrättigheter (högerklicka -> Run as administrator)? Ibland kan felen vara luriga.Problem med att visa kataloger i Vista
Har en VB6 applikation som fungerar perfekt under XP men när samma program körs på Vista så får jag naturligvis fel
När jag skall visa alla kataloger i ett fönster så får jag felmeddelandet:Permission denied" och jag förstår ju vad det innebär men hur komma förbi det i VB6.
Använder FileSystemObject men det blir samma om jag använder en dirlistbox
Någon som har en lösning utan att byta till NET ?Sv: Problem med att visa kataloger i Vista
/JohanSv:Problem med att visa kataloger i Vista
Jag loggar in i Vista med administratörsrättigheter. Kan Vista för dåligt då det gäller rättigheter
men försöker nu sätta mig in i detta
Har jag inte rättigheter till alla kataloger då ?
Om jag skapar ett enkelt program i NET med bara en FolderbrowserDialog så fungerar detSv: Problem med att visa kataloger i Vista
Har förenklat det så mycket det går för att få så lite kod sm möjligt
Det behövs bara en Form med en listbox nu
<code>
Option Explicit
Dim fso As New FileSystemObject
Dim FS As Object
Private Sub cmdAvbryt_Click()
Unload Me
End Sub
Private Sub Form_Load()
List1.Clear
Me.Show
Set FS = CreateObject("Scripting.FileSystemObject")
lblPath = ""
ExpandRow
End Sub
Sub ExpandRow()
Dim f
Dim f1
Dim fc
Dim s
Dim Subf, Subfc, Subf1, Subdr
Dim I%, J%, dr$
Dim iPos&, iLvl&
Dim pth$
With List1
' in case a floppy is not in the drive...
On Error Resume Next
' ' get path for the given row
pth = "C:"
Set f = FS.GetFolder(pth & "\")
Set fc = f.SubFolders
If Err <> 0 Then Exit Sub
On Error GoTo Nästa_Folder
For Each f1 In fc
dr = f1.Name
.AddItem dr, iPos
.AddItem pth & "\" & dr
Set Subf = FS.GetFolder(pth & "\" & dr & "\")
Set Subfc = Subf.SubFolders
For Each Subf1 In Subfc
Subdr = Subf1.Name
If Subdr <> "" Then
.AddItem Subdr
iPos = iPos + 1
Exit For
End If
Next Subf1
Nästa_Folder:
Next f1
On Error GoTo 0
End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set FS = Nothing
End Sub
</code>Sv:Problem med att visa kataloger i Vista
Vad händer om du använder en FileDialog i VB6 istället?
/JohanSv: Problem med att visa kataloger i Vista
Fungerar med FileDialog men jag vill bara kunna välja Drive och katalog
Fungerar med en DriveListBox och DirListBox
Ytterligare ett problem som jag inte förstår
Får felaktiga katalognamn när jag använder DirBox och vissa kataloger visas ej
T.ex I vista hterkatalogen Program men i DirListBox heter samma katalog Program Files etc
/AffeSv:Problem med att visa kataloger i Vista
Om du debuggar, vilken rad får du då fel på?