Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

VB6 - Dateien in einem Verzeichnis abarbeiten ohne Form

Mitglied: goodbytes

goodbytes (Level 2) - Jetzt verbinden

23.01.2013 um 08:50 Uhr, 2609 Aufrufe, 3 Kommentare

Ich habe diese VB6-Frage bewusst in das VBA-Forum gesetzt, da es in das .NET-Forum erst recht nicht passt.

Hallo,
mir fehlt irgendwie ein Ansatz. Ich möchte periodisch per Geplantem Task ein fest definiertes Verzeichnis durchsuchen, der Reihe nach alle darin vorhandenen Dateinamen auslesen, den enthaltenen Barcode auslesen, die Datei anhand des gelesenen Barcodes umbenennen und in ein anderes ebenfalls fest definiertes Verzeichnis verschieben. Dann die nächste Datei usw. bis das Verzeichnis leer ist.

Die Funktionalität des Auslesens (hierzu gibt es eine spezielle ocx-Datei), Umbennenens und Verschiebens der jeweiligen Datei ist bereits fertig. Ich habe es daher in den Codeschnipseln der Übersichtlichkeit wegen hier nicht mit angegeben.
Momentan wird es so angesprochen:

01.
frmMain.QSBCOCX1.PictureName = DateiName
Meine Frage nun:

Bisher wird das in einer Form abgewickelt. Mit Start auf einen Button wird der Vorgang gestartet.
Die spätere Anwendung soll aber kein Fenster bringen; sie soll beim Start einfach alle Dateien im Verzeichnis abarbeiten und sich dann beenden.

Wie könnte ich das bewerkstelligen?

Danke schon mal im Voraus!

Hier ein paar Code-Schnipsel daraus:

01.
Private Sub Form_Load() 
02.
...     
03.
    Call Start 
04.
    Call Beenden 
05.
End Sub
01.
Public Quelle As String, Ziel As String 
02.
 
03.
Private Sub Form_Load() 
04.
 
05.
Quelle = "C:\Test\Quelle\" 
06.
Ziel = "C:\Test\Ziel\" 
07.
...     
08.
    Call Start 
09.
    Call Beenden 
10.
End Sub
01.
Private Sub Beenden() 
02.
 
03.
Dim i As Integer 
04.
 
05.
    For i = Forms.Count - 1 To 1 Step -1 
06.
        Unload Forms(i) 
07.
    Next 
08.
 
09.
Unload ME 
10.
	 
11.
End Sub
01.
Public fMainForm As frmMain 
02.
 
03.
Sub Main() 
04.
    Set fMainForm = New frmMain 
05.
    fMainForm.Show 
06.
End Sub
01.
Public Function Start(Quelle As String, Zeile As String) 
02.
 
03.
' Hier sollte mein Code kommen... 
04.
 
05.
End Function
Gruß
Torsten
Mitglied: Tommy70
23.01.2013, aktualisiert um 13:53 Uhr
Hallo,

bin mir nicht ganz sicher, ob ich dich richtig verstanden habe. Aber wenn du das ganze lösen möchtest indem du die Form aus dem Projekt entfernst und alles nur über ein Modul laufen lassen willst könnten dir die beiden Links weiter helfen.

http://www.aboutvb.de/khw/artikel/khwcommondlgs.htm

http://www.aboutvb.de/khw/artikel/khwformlessocx.htm

Gruß
Tom
Bitte warten ..
Mitglied: SarekHL
23.01.2013 um 13:56 Uhr
Bisher wird das in einer Form abgewickelt. Mit Start auf einen Button wird der Vorgang gestartet.
Die spätere Anwendung soll aber kein Fenster bringen; sie soll beim Start einfach alle Dateien im Verzeichnis abarbeiten und sich dann beenden.

Solange Du den "Vorgang" automatisch startest (also nicht über einen Button) und dann gleich Deine Beenden-Prozedur aufrufst, sollte das Formular gar nicht sichtbar in Erscheinung treten ...
Bitte warten ..
Mitglied: goodbytes
23.01.2013 um 16:17 Uhr
@SarekHL:
Naja, je nach Anzahl der Dateien dauert es schon ein Weilchen. Ich will eigentlich auch eine saubere Lösung.

@tom:
Du hattest mich richtig verstanden, deine Links sehen auf den ersten Blick ganz vielversprechend aus.
Ich werde es mir mal genauer anschauen und probieren.

Vielen Dank euch Beiden !!!

Gruß
Torsten
Bitte warten ..
Ähnliche Inhalte
Batch & Shell

Ordner von einem Verzeichnis in ein anderes Verzeichnis kopieren und Datei-Name verändern

gelöst Frage von gudboyBatch & Shell15 Kommentare

Ich habe ein "Verzeichnis A" mit Ordner. Die Ordner haben immer eine "F-Nummer" und einen Titel wie z.B. " ...

Batch & Shell

Wenn Verzeichnis vorhanden dann ersetze Datei

gelöst Frage von xbast1xBatch & Shell4 Kommentare

Hallo zusammen, ich benötige ein Skript für folgendes Szenario. Wenn Verzeichnis "Muster" vorhanden, dann ersetze Datei "xyz". Hat evtl. ...

Batch & Shell

Datei aus Verzeichnis auslesen?

gelöst Frage von freshman2017Batch & Shell4 Kommentare

Hallo Ihr! Ich wollte mir gerade mit nachfolgendem Batch Befehl: alle darin befindlichen Bilder auflisten. Ausgabe: Wie kann ich ...

Batch & Shell

Dateien in einem Verzeichnis mergen - rekursiv

gelöst Frage von frad1980Batch & Shell10 Kommentare

HAllo, ich habe folgende Ordner Struktur: 100 200 300 usw. In jedem Ordner sind PDF Dateien abgelegt. Mittels einem ...

Neue Wissensbeiträge
Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 10 StundenHumor (lol)2 Kommentare

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 22 StundenGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Sicherheit

Intel gibt neue Spectre V2-Microcode-Updates frei (20.02.2018)

Information von kgborn vor 23 StundenSicherheit

Intel hat zum 20. Februar 2018 weitere Microcode-Updates für OEMs freigegeben, um Systeme mit neueren Prozessoren gegen die Spectre ...

Microsoft
ARD-Doku - Das Microsoft Dilemma
Tipp von Knorkator vor 1 TagMicrosoft3 Kommentare

Hallo zusammen, vor einigen Tagen lief in der ARD u.a. Reportage. Das Youtube Video dazu dürfte länger verfügbar sein. ...

Heiß diskutierte Inhalte
Windows Server
AD DS findet Domäne nicht, behebbar?
Frage von schapitzWindows Server45 Kommentare

Guten Tag, ich habe bei einem Kunden ein Problem mit den AD DS. Umgebung ist folgende: Windows Server 2016 ...

Router & Routing
LANCOM VPN CLIENT einrichten
Frage von Finchen961988Router & Routing27 Kommentare

Hallo, ich habe ein Problem und hoffe ihr könnt mir helfen, wir haben einen Kunden der hat einen Speedport ...

Router & Routing
ISC DHCP 2 Subnetze
gelöst Frage von janosch12Router & Routing19 Kommentare

Hallo, ich betreibe bei mir im Netzwerk einen ISC DHCP Server auf Debian, der DHCP verwaltet aktuell ein /24 ...

Server-Hardware
Welche Rolle spielt Design bei Enterprise IT Hardware?
Frage von ApolloXServer-Hardware16 Kommentare

Ich arbeite für einen internationalen Elektronikhersteller in der Forschung und meine Aufgabe ist es, Feedback von Nutzern in Hinsicht ...