vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Top-Preis! AP-Access-Tools-CD Volume 1  
 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
QUELLTEXT Teil II 
Autor: hakke-schorb
Datum: 09.06.08 15:58
Teil II: 

 
        'Diagramme
 
                    Liste = FileList(Kpath & myName & "\", "*.png")
 
                If Liste(0) <> "No files" Then
                    Anzahl = UBound(Liste) - LBound(Liste) + 1
                    Meldung = "Anzahl der gefundenen Dateien: " & Anzahl
                    Worksheets("MeasImport").Range("D" & zeile_).Value = " x "
                    Auswahl = MsgBox(Meldung, vbOKCancel)
                Else
                    Worksheets("MeasImport").Range("D" & zeile_).Value = ""
                End If
 
 
        'Fotos
 
                    Liste = FileList(Kpath & myName & "\", "*.jpg")
 
                If Liste(0) <> "No files" Then
                    Anzahl = UBound(Liste) - LBound(Liste) + 1
                    Meldung = "Anzahl der gefundenen Dateien: " & Anzahl
                    Worksheets("MeasImport").Range("E" & zeile_).Value = " x "
                    Auswahl = MsgBox(Meldung, vbOKCancel)
                Else
                    Worksheets("MeasImport").Range("E" & zeile_).Value = ""
                End If
 
 
        'Videoanalyse
 
                    Liste = FileList(Kpath & myName & "\", "*videoanalyse*")
 
                If Liste(0) <> "No files" Then
                    Anzahl = UBound(Liste) - LBound(Liste) + 1
                    Meldung = "Anzahl der gefundenen Dateien: " & Anzahl
                    Worksheets("MeasImport").Range("F" & zeile_).Value = " x "
                    Auswahl = MsgBox(Meldung, vbOKCancel)
                Else
                    Worksheets("MeasImport").Range("F" & zeile_).Value = ""
                End If
 
 
        'freedat
 
                     Liste = FileList(Kpath & myName & "\", "free.dat")
 
                If Liste(0) <> "No files" Then
                    Anzahl = UBound(Liste) - LBound(Liste) + 1
                    Meldung = "Anzahl der gefundenen Dateien: " & Anzahl
                    Worksheets("MeasImport").Range("H" & zeile_).Value = " x "
                    Auswahl = MsgBox(Meldung, vbOKCancel)
                Else
                    Worksheets("MeasImport").Range("H" & zeile_).Value = ""
                End If
 
 
        'sled-data
 
                    Liste = FileList(datapath & "\" & wo_ & "\" & to_, _
                      "*testreport_sledx*")
 
                If Liste(0) <> "No files" Then
                    Anzahl = UBound(Liste) - LBound(Liste) + 1
                    Meldung = "Anzahl der gefundenen Dateien: " & Anzahl
                    Worksheets("MeasImport").Range("I" & zeile_).Value = " x "
                    Auswahl = MsgBox(Meldung, vbOKCancel)
                Else
                    Worksheets("MeasImport").Range("I" & zeile_).Value = ""
                End If
 
 
                    zeile_ = zeile_ + 1
                'End If  ' it represents a directory.
            End If
        End If
    End If
 
    myName = Dir()    ' Get next entry.
    MsgBox (myName)
Loop
Range("B3").Select
End Sub


Beitrag wurde zuletzt am 09.06.08 um 16:01:00 editiert.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
HILFE Fehlermeldung: "Run-time Error Ƌ': Invalid proced...700hakke-schorb09.06.08 15:56
QUELLTEXT Teil I404hakke-schorb09.06.08 15:57
QUELLTEXT Teil II389hakke-schorb09.06.08 15:58

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