Ordner & Inhalt (VBA) Kopieren und umbenennen

[Frank BST]

Lösungsansatz

Die Freeware:
   
Auf einem Reiter ist Code hinterlegt.
Einmal in C#
   
Und einmal in VB
   

Code:

Imports Bytescout.BarCode

    ...

    Dim barcode As New Barcode()
    barcode.RegistrationKey = "demo"
    barcode.RegistrationName = "demo"

    barcode.Symbology = SymbologyType.QRCode

    barcode.DrawCaption = True
    barcode.DrawCaptionFor2DBarcodes = True
    barcode.CaptionPosition = CaptionPosition.Below
    barcode.CaptionFont = New Font("Arial", 14,25F, FontStyle.Bold)
    barcode.SmoothingMode = SmoothingMode.Default
    barcode.BackColor = Color.White
    barcode.ForeColor = Color.Black
    barcode.Angle = RotationAngle.Degrees0
    barcode.Margins = New Margins(5, 5, 5, 5)
    barcode.BarHeight = 50
    barcode.NarrowBarWidth = 3
    barcode.WideToNarrowRatio = 3
    barcode.AddChecksum = False
    barcode.AddChecksumToCaption = False
    barcode.RenderingHint = TextRenderingHint.SystemDefault
    barcode.DrawQuietZones = True
    barcode.Options.QREncodeHint = QREncodeHint.Mode8
    barcode.Options.QRErrorCorrectionLevel = QRErrorCorrectionLevel.Low
    barcode.Options.QRVersion = 0
    barcode.Options.Encoding = Encoding.GetEncoding(1252)
    barcode.Value = "999999"

    Dim barcodeImage As Image = barcode.GetImage()

    ...

Kann ich das so in der Form in Excel VBA nutzen?
Werd das gerade mal testen

[RPP63]

Moin Frank!
VB.Net und C# sind nicht VBA!
Ich war gerade mal auf der Website der Software, ActiveX wird unterstützt.
Könnte interessant sein, ich habe aber heute wohl keine Zeit.

Ich schlage vor, einen neuen Thread aufzumachen, denn dies hat ja nun gar nichts mehr mit der Ursprungsfrage zu tun.
(Du willst doch automatisiert .PNGs von QR-Codes aller Excel-Dateien im selben Ordner abspeichern?)

Gruß Ralf

[Frank BST]

Schade,

aber danke Ralf.

Habe bereits ein neues Thema erstellt.

Mal sehen ob noch jemand mich mit Brainstorming füttern kann.

Aber zum kopieren meines gefüllten Ordners würd mich dennoch eure Anregung interessieren.
Oder sprechen die unterschiedlichen Namensbildungen dagegen.
Wenn ich schon automatisiere, dann will ich auch den höchstmöglichen Zeitgewinn erwirtschaften.
Auch wenn man mir gerade meine SSD durch eine HDD ersetzt hat. :@


Gruß
Frank

[Frank BST]

Super, ganz Toll,

erster Einsatz unter Realbedingungen ist katastrophal.
Quasi unbrauchbar.

Der erzeugte Ordner existiert nicht?!
zuerst viel es mir auf, da ich ihn nicht umbenennen konnte.
Dann konnte ich die Excel Dateien darin nicht öffnen.
Im Ordner in der Listen Ansicht haben die Excel Datein jeweils ca 10KB an Größe.
Unter Eigenschaften hat der Ordner eine Größe von 0 KB.

Was wurde denn da erzeugt?

[Frank BST]

Fehler lässt sich rekonstruieren.

Wenn ich in meinem Tabellenblatt nur die Maschinennummer ohne Firma Eingebe entsteht der Fehler
Bis auf ein paar Leerzeichen im Dateinamen kann doch da gar nichts entstehen.

Das Beste darin ist, dass ich diesen Pseudo Ordner nun Nichtmal mehr löschen kann. :@

Kann ich diesen Fehler im Code vorbeugen?

[Frank BST]

Moin

Wie lösche ich einen Ordner der nicht existiert?

Erstellt wurde der Ordner über jene Makro Zeilen
Verz = Range("B7")
If Dir(Verz, vbDirectory) = "" Then MkDir Verz

Dies ist der Inhalt von B6 =   {=B2&" "&B1}
Dies ist der Inhalt von B7 =   {=B5&B6&"\"}

In B1 sollte ein Name stehen (kann auch ein Doppelname mit Leerzeichen sein)
In B2 steht eine Nummer (5 oder 6 stellig)
In B5 steht der Pfad: {C:\Users\frank\Schilder\Archiv\}

Der Fehler entstand wohl weil ich keinen Namen vergeben habe und der Ordner und Pfadname sich aus einem Leerzeichen und einer leeren Zelle addiert hat.

selbst über CMD wird der Ordner angezeigt
mit 'del Ordnername' kommt die Abfrage
ob man sicher ist?
dies kann ich mit j für ja bestätigen
leider ist der Ordner dann immer noch da
Windows behauptet beim löschen, dass es ihn nicht gibt
Über Windows kann ich ihn jedoch umbenennen.

Also wie lösche ich den Ordner?

Aber noch viel wichtiger,
wie verhindere ich, das dieser Fehler wieder auftritt?

Gruß
Frank

[Frank BST]

Der Ordner ließ sich nun, warum auch immer, löschen.
Stunden später hat der Löschvorgang im Windows Explorer anstandslos funktioniert.
Muss man wohl nicht verstehen.

Was gibts also für Sicherungsmaßnahmen im Makro Code um das zu verhindern?

[Rabe]

Hi Frank,

nicht das ich mich nicht bestens beholfen fühle,
aber einer von euch beiden muss das Forum wechseln.
Wenn mich nicht eh schon die dutzenden möglichen Lösungswege verwirren.

Zwei Ralfs schaffen es auf jeden Fall.
Erst recht wenn sie hier auch noch ne Unterhaltung starten.

deswegen haben wir beide Ralfs ja auch unterschiedliche Account-Namen. :19: :21: :100:
Es steht doch nur in der Unterschrift "Ralf".

Unterschiedliche Lösungswege haben den Vorteil, daß Du alle ausprobieren und den für Dich am besten geeigneten verwenden kannst.

[Rabe]

Hi Frank,

leider ist der Ordner dann immer noch da
Windows behauptet beim löschen, dass es ihn nicht gibt
Über Windows kann ich ihn jedoch umbenennen.

Also wie lösche ich den Ordner?

Aber noch viel wichtiger, wie verhindere ich, das dieser Fehler wieder auftritt?

Wenn Du ihn umbenennen kannst, dann gib ihm einen richtigen Namen. Dann kannst Du ihn sicher auch löschen.

Verhindern kannst Du den Fehler, indem Du vor Erzeugen prüfst, daß keine der Zellen mit dem Namen oder der Nummer leer sind oder nur ein " " enthalten.

[snb]

Ein Folder umbenennen

Code:

Sub M_snb()
   Name "G:\OF\test_001" As "G:\OF\test_009"
End Sub