vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 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

Visual-Basic Einsteiger
Re: menü erst später aktivieren oder erweitern... 
Autor: ModeratorDieter (Moderator)
Datum: 01.02.02 22:00

Hi -ipa-,

also das mit dem Fehler 5 ist leicht erklärt.
Ich bin natürlich davon ausgegangen, dass die gefundenen Dateien alle eine Extension aufweisen, was aber scheinbar nicht der Fall ist.

Also musst Du das eben noch abfangen:
With mnuTest(lCount) 
  If InStr(sFile, ".") > 0 Then
    .Caption = Left$(sFile, InStrRev(sFile, ".") - 1) 
  Else
    .Caption = sFile
  End If
Dass nur bestimmte Dateitypen angezeigt werden, ist auch noch schnell gemacht:
 
Path & "*.TXT", vbNormal)Kannst natürlich hier alles mögliche einsetzen.

Und dass auch noch Unterverzeichnisse berücksichtigt werden sollen?
Da wird's etwas komplexer - da brauchen wir eine rekursive Funktion.

Aber ich glaube, Du solltest Dich jetzt erst mal mit dem bisherigen Code auseinandersetzen, meinst Du nicht auch?

Cu
Dieter
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
menü erst später aktivieren oder erweitern...53-ipa-01.02.02 18:30
Re: menü erst später aktivieren oder erweitern...190ModeratorDieter01.02.02 19:00
Re: menü erst später aktivieren oder erweitern...42-ipa-01.02.02 20:48
Re: menü erst später aktivieren oder erweitern...203ModeratorDieter01.02.02 21:06
Re: menü erst später aktivieren oder erweitern...39-ipa-01.02.02 21:22
Re: menü erst später aktivieren oder erweitern...206ModeratorDieter01.02.02 21:37
Re: menü erst später aktivieren oder erweitern...40-ipa-01.02.02 21:54
Re: menü erst später aktivieren oder erweitern...177ModeratorDieter01.02.02 22:00
Re: menü erst später aktivieren oder erweitern...41-ipa-01.02.02 22:11
ok es funktioniert..41-ipa-01.02.02 22:16

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