Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Programm von CD starten
Autor: bushcruiser
Datum: 19.12.03 16:40
Hallo Hab da wieder mal ein kleines Problemchen. Habe mir ein Install Programm selber geschrieben, um ein ganzes Verzeichnis mit allen Unterverzeichnisen in einen bestimmten Ordner zu kopieren. Wenn ich das Programm auf der HD starte, dann funktioniert alles supper. Wenn ich es aber von der CD starte, wo es ja kein schreiben gibt funktioniert es nicht. Fehler: Er erstellt alle verzeichnisse anstelle Bsp. c:\Programme\Test\das\ist\einen\Test.... untereinander also Bsp. c:\ Programme Test das ist einen Test .... mein Code Sub subAlleOrdnerDateienSuchen(ByVal dir As IO.DirectoryInfo) Dim subdir As IO.DirectoryInfo Dim file As IO.FileInfo Dim strDateiName As String Dim strLen1 As String Dim strLen2 As String Dim strPos1 As String Dim strQuellPath As String Dim strZielPath As String Dim strOrigZielPath As String strZielPath = txtOrdner.Text.Trim strQuellPath = System.Windows.Forms.Application.StartupPath & strTrennzeichen & "Test" strLen1 = CStr(Len(strQuellPath)) strOrigZielPath = txtOrdner.Text Try For Each file In dir.GetFiles() strLen2 = CStr(Len(file.FullName.Trim)) strPos1 = CStr(CDbl(strLen2) - CDbl(strLen1)) strZielPath = strOrigZielPath & Strings.Right(file.FullName.Trim, CInt(strPos1)) Try IO.File.Copy(file.FullName.Trim, strZielPath, True) Dim fileAttribut As New IO.FileInfo(strZielPath) fileAttribut.Attributes = IO.FileAttributes.ReadOnly = 0 Catch System.Windows.Forms.MessageBox.Show("Fehler beim Kopieren !!!") End Try Next For Each subdir In dir.GetDirectories() strLen2 = CStr(Len(subdir.FullName.Trim)) strPos1 = CStr(CDbl(strLen2) - CDbl(strLen1)) strZielPath = strOrigZielPath & Strings.Right(subdir.FullName.Trim, CInt(strPos1)) If Not IO.Directory.Exists(strZielPath) Then IO.Directory.CreateDirectory(strZielPath) End If subAlleOrdnerDateienSuchen(subdir) Next Catch System.Windows.Forms.MessageBox.Show("Fehler !!!") End Try End Sub Besten Dank für eure Hilfe Gruss bushcruiser

Programm von CD starten

750

bushcruiser

19.12.03 16:40

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