Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Dateien verschieben mit VB6
Autor: Egon10
Datum: 13.12.11 17:20
Hallo Experten, ich verzweifele am einfachsten. Wer kann mir helfen ? Ich möchte mit einem VB6-Project eine .pdf-Datei die mein Scanner auf den Desktop meiner Anmeldung schickt nach Laufwerk D in einen bestimmten Ordner verschieben. Habe 2 Varianten probiert. Wenn ich den Namen der Datei einfüge funktioniert alles bestens.Wenn ich statt dessen den gleichen Namen aus einer TextBox12.text einsetze ist es vorbei! 1.Variante Private Sub Command1_Click() Dim Text12 Text12 = "ZEV_3-2011.pdf" Name "C:\Dokumente und Einstellungen\HL\Desktop\ZEV_3-2011.pdf" As "D:\Solar und Verbrauch\ZEV_Rechn\ZEV_3-2011.pdf" End Sub So funktioniert es, aber wenn ich statt dessen mit TextBox arbeite wird die Datei nicht gefunden Private Sub Command1_Click() Dim Text12 Text12 = "ZEV_3-2011.pdf" Name "C:\Dokumente und Einstellungen\HL\Desktop\Text12" As "D:\Solar und Verbrauch\ZEV_Rechn\Text12" End Sub 2.Variante genau so: Sub move_file_imp_stage() Dim fso, oFile, oFiles, oFolder, sQuelle, sZiel Set fso = CreateObject("Scripting.FileSystemObject") Set oFolder = fso.GetFolder("C:\Dokumente und Einstellungen\HL\Desktop") Set oFiles = oFolder.Files sZiel = "D:\Solar und Verbrauch\ZEV_Rechn\" For Each oFile In oFiles sQuelle = fso.GetAbsolutepathname(oFile) If oFile = Trim(oFile & ".pdf") Then fso.MoveFile sQuelle, sZiel End If Next Wäre für eine Hilfe sehr dankbar egon 10

Dateien verschieben mit VB6	1.327	Egon10	13.12.11 17:20
Re: Dateien verschieben mit VB6	577	Zardoz	13.12.11 18:20
Re: Dateien verschieben mit VB6	527	Egon10	14.12.11 13:34

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übersicht

Suchen