hallo andreas!
sorry, aber ich komme mit deinem script nicht zurecht . . .
soweit bin ich gekommen:
---------------------------
<%
DIM FSO
DIM FileIsError
DIM FileErrorArt
DIM StandardPfad
StandardPfad = "D:\WEB\D\F\18\~upload\ifa"
Dim vonFile
Dim nachFile
vonFile ="\~dbk\ifainfo.mdb"
vonNach ="\~backup\"
Dim TempPfad
Dim TempDatei
if request.form.count> 0 then
Kopiere vonFile, nachFile
end if
Sub Teste(Dateiname)
FileIsError = false
If len(Dateiname) < 4 Then
FileIsError = False
FileErrorArt = "Der Dateiname hat ein unzulaessiges Format"
Else
If not(mid(Dateiname,2,2) = ":\") Then
If mid(Dateiname,1,1) = "\" Then Dateiname = "\" &
Dateiname
Dateiname = StandardPfad & "\" & Dateiname
End If
End If
End Sub
Sub BereiteDateiAktionVor
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
End Sub
Function TesteDatei(Pfad)
FileIsError = false
If not(isObject(FSO)) Then BereiteDateiAktionVor
If FSO.FileExists(Pfad) Then
'Response.Write("Getesteter Pfad:" & Pfad & " existiert")
TesteDatei = true
FileIsError = false
Else
'Response.Write("Getesteter Pfad:" & Pfad & " existiert
nicht")
FileIsError = true
FilErrorArt = "Datei """ & Pfad & """ existiert nicht!"
TesteDatei = false
FileIsError = true
FileErrorArt = "Getesteter Pfad:" & Pfad & " existiert
nicht"
End If
End Function
Sub Trenne(Dateiname)
FileIsError = false
Teste Dateiname
TempDatei = ""
TempPfad = ""
If not(FileIsError) Then
flag = false
Temp = StrReverse(Dateiname)
Laenge = len(Temp) + 1
For i = 1 To Laenge
TempChar = mid(Temp,i,1)
If not(flag) Then
If TempChar = "\" Then
flag = true
Else
TempDatei = TempDatei & TempChar
End If
Else
TempPfad = TempPfad & TempChar
End If
Next
TempDatei = StrReverse(TempDatei)
TempPfad = StrReverse(TempPfad)
End if
End Sub
Sub Kopiere(von, nach)
Teste von
If FileIsError Then
FileErrorArt = "Quelle: " & FileErrorArt
Else
Trenne nach
If notFileIsError Then FileErrorArt = "Ziel: " &
FileErrorArt
End if
If not(TesteDatei(von)) Then
FileErrorArt = "Quelle Existiert nicht: " & von
FileIsError = True
End If
If not(FileIsError) Then
Trenne nach
If not(TesteOrdner(TempPfad)) Or FileIsError Then
FileErrorArt = "Zielpfad Existiert nicht: " &
TempPfad
FileIsError = True
End If
End If
If not(FileIsError) Then FSO.CopyFile Von, Nach
End Sub
%>
-------------------------------------------------
was habe ich falsch gemacht ?
danke
mit besten Gr�ssen
Michael
-----Urspr�ngliche Nachricht-----
Von: Andreas Roth [mailto:[EMAIL PROTECTED]]
Gesendet: Donnerstag, 14. Februar 2002 20:47
An: ASP Diskussionsliste fuer Anfaenger
Betreff: [aspdebeginners] AW: fso copy and save
Die Fehlermeldung steht in einer Variable:
If FileIsError Then Response.Write(FileErrorArt)
Wahrscheinlich l�sst sich die DB nicht anfassen, weil noch Verbindungen dazu
offen sind.
Andreas Roth
--------------------------------------
[EMAIL PROTECTED] *jetzt mit Chat*
http://www.EuphoriasChild.DarkTech.org
--------------------------------------
> -----Urspr�ngliche Nachricht-----
> Von: Michael Mayr [mailto:[EMAIL PROTECTED]]
> Gesendet: Donnerstag, 14. Februar 2002 20:42
> An: ASP Diskussionsliste fuer Anfaenger
> Betreff: [aspdebeginners] AW: fso copy and save
>
>
> hallo andreas!
>
> ich nochmal. sag mal wenn ich die datei "xyz.mdb" im ordner "~db" kopieren
> will nach order "~backup" (gleiche ebene wie "~db"), wie ruf ich die
> funktion oder sub auf? habs schon versucht, aber ich krieg keine
> fehlermeldung, es geschieht aber nix . . .
>
> dank dir
>
> mit besten Gr�ssen
>
> Michael Mayr
>
> -----Urspr�ngliche Nachricht-----
> Von: Andreas Roth [mailto:[EMAIL PROTECTED]]
> Gesendet: Donnerstag, 14. Februar 2002 19:27
> An: ASP Diskussionsliste fuer Anfaenger
> Betreff: [aspdebeginners] AW: fso copy and save
>
>
> Jetzt mach ich den Footer schon nicht mehr mit rein :-b
>
> Andreas Roth
>
>
> > -----Urspr�ngliche Nachricht-----
> > Von: Stefan H�sler [mailto:[EMAIL PROTECTED]]
> > Gesendet: Donnerstag, 14. Februar 2002 19:10
> > An: ASP Diskussionsliste fuer Anfaenger
> > Betreff: [aspdebeginners] AW: fso copy and save
> >
> >
> > > http://www.euphoriaschild.darktech.org/index.asp?I=100
> >
> > Sag ich doch, weil er st�ndig damit angibt :-)
> >
> > Tschuldigung, da� mu�te jetzt einfach sein. Ich konnte mich nicht
> > beherrschen.
> >
> >
> >
> > | Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
> > | [aspdebeginners] als [EMAIL PROTECTED] subscribed
> > | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
> > | Sie knnen sich unter folgender URL an- und abmelden:
> > | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
>
>
> | Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
> | [aspdebeginners] als [EMAIL PROTECTED] subscribed
> | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
> | Sie knnen sich unter folgender URL an- und abmelden:
> | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
>
>
> | Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
> | [aspdebeginners] als [EMAIL PROTECTED] subscribed
> | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
> | Sie knnen sich unter folgender URL an- und abmelden:
> | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
