Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Brauch eure profisionelle Hilfe!
Autor: fin
Datum: 16.06.08 16:35
hallo, ein beispiel: http://www.activevb.de/cgi-bin/tippupload/preview.pl?type=vbc&tippnr=186 das kannst du erweitern du auf der Mainform eine kopiersub einfügen (verweis auf MS scripting runtime) zB Private Sub kopieren() Dim FSO As New FileSystemObject Dim folder As folder Dim sPath As String ' sPath aus dem Listeneintrag auslesen, hier wird die Laufwerksbezeichnung eingetragen sPath =............ Set folder = FSO.GetFolder(sPath) folder.Copy "F:\sicherung\" 'kopieren nach F:\ in Ordner "neu" End Sub in die Private Sub cDevChange_DevChangeInfo(ByVal Info As String) .........einfügen If Left(Info, 3) = "New" Then Call kopieren ......... end sub bleibt nur die Form verkleinert nicht sichtbar zu laden gruß fin

Brauch eure profisionelle Hilfe!	1.181	MasterOfChess	16.06.08 13:08
Re: Brauch eure profisionelle Hilfe!	709	fin	16.06.08 16:35

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