Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: filecopy unter Win 2000
Autor: ThomasE
Datum: 17.02.03 16:38
Hallo Dieter, nachfolgend der Ausschnitt aus der Programmierung. sExportRef und sImportSpr beinhalten die Pfade (Quelle und Ziel). Vielleicht findest du eine Lösung. Dim sDName As String Dim sExportRef As String, sImportSpr As String ... ... sDName = Dateiname(sExportRef, "Neu_*.txt") If Len(sDName) > 0 Then FileCopy sExportRef & " \" & sDName, sImportSpr & "\" & sDName boSendNeu = True Else boSendNeu = False End If ... ... Private Function Dateiname(sOrdner As String, sName As String) As String 'Liefert einen Dateinamen. Bekannt sind Ordner und Namensbeginn. Dim sDatei As String With Application.FileSearch .LookIn = sOrdner .FileName = sName If .Execute > 0 Then Dateiname = Mid(.FoundFiles(1), Len(sOrdner) + 2) Else Dateiname = "" End With End Function

filecopy unter Win 2000	115	ThomasE	17.02.03 09:33
Re: filecopy unter Win 2000	229	Dieter	17.02.03 09:43
Re: filecopy unter Win 2000	50	ThomasE	17.02.03 16:38
Re: filecopy unter Win 2000	253	Dieter	17.02.03 17:11
Re: filecopy unter Win 2000	63	ThomasE	18.02.03 08:45
	231	Liechte	18.02.03 08:54
Re: filecopy unter Win 2000	221	RalfH	18.02.03 16:01
Re: filecopy unter Win 2000	32	ThomasE	19.02.03 05:59

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