vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Allgemeine Diskussionen
Re: Versteckte Dateien 
Autor: desiree
Datum: 19.05.04 11:13

Ich konnte mein Problem beheben. Und zwar folgendermassen, für die die auch mal ein Problem mit versteckten dateien haben:

Set oFolder = oFSO.GetFolder(Dir1)
s = 0
selcount = 0

For Each ofile In oFolder.Files

If ((ofile.Attributes) And Hidden) = 0 Then ' Alle Files,welche das 2.Bit gesetz haben
If File1.Selected(s) Then ' sind Hidden Files und mit AND wird
selcount = selcount + 1 ' dies verglichen und ausgegrenzt
End If
s = s + 1
End If
Next
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Versteckte Dateien618desiree17.05.04 13:32
Re: Versteckte Dateien435ModeratorDieter17.05.04 14:27
Re: Versteckte Dateien622desiree19.05.04 11:13

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel