Reduziere das ganze mal auf
DIM FSO
DIM vonFile ="\~dbk\ifainfo.mdb"
DIM vonNach ="\~backup\"
DIM StandardPfad = "D:\WEB\D\F\18\~upload\ifa"
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
FSO.CopyFile StandardPfad & vonFile, StandardPfad & vonNach
Set FSO = nothing
Der ganze Rest ist ja mehr dazu gedacht, es allgemein einfacher zu machen...
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 22:31
> An: ASP Diskussionsliste fuer Anfaenger
> Betreff: [aspdebeginners] AW: fso copy and save
>
>
> 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
| 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
