Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Automatische Verzeichnisorganisation
Autor: schmacko
Datum: 12.12.07 23:13
Also.. ich habe mal die Teile von dir etwas umgebaut. Mit einer TextBox kann ich die laufende Nummer testen. Das klappt prima: Dim Pfad2 As String = Math.Truncate(TextBox1.Text / 1000) + 1 Dim Pfad1 As String = Math.Truncate(Pfad2 / 1000) + 1 If Pfad2.Length > 3 Then Dim Nummer As Long = CType(Pfad2.Substring(Pfad2.Length - 3), Long) - 1 Pfad2 = CType(Nummer, String) End If If Not My.Computer.FileSystem.FileExists("d:\" & Pfad1) Then My.Computer.FileSystem.CreateDirectory("d:\" & Pfad1) End If If Not My.Computer.FileSystem.FileExists("d:\" & Pfad1 & "\" & Pfad2) Then My.Computer.FileSystem.CreateDirectory("d:\" & Pfad1 & "\" & Pfad2) End If My.Computer.FileSystem.CopyFile("E:\Test.pdf", "d:\" & Pfad1 & "\" & Pfad2 & "\" _ & TextBox1.Text & ".pdf", True) Wenn du mir jetzt noch sagen kannst, wie ich das richtige Verzeichnis für die Datei 1256654.pdf ermitteln kann, bin ich vollauf zufrieden. Gruß Ralf

Automatische Verzeichnisorganisation	933	schmacko	11.12.07 20:29
Re: Automatische Verzeichnisorganisation	610	wincnc	12.12.07 20:07
Re: Automatische Verzeichnisorganisation	668	schmacko	12.12.07 23:01
Re: Automatische Verzeichnisorganisation	588	schmacko	12.12.07 23:13
Re: Automatische Verzeichnisorganisation	612	schmacko	21.12.07 19:40
Re: Automatische Verzeichnisorganisation	597	Melkor	21.12.07 20:09
Re: Automatische Verzeichnisorganisation	634	schmacko	21.12.07 22:19

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