Avatar billede markskod Nybegynder
08. januar 2001 - 03:13 Der er 10 kommentarer og
1 løsning

Opret en fil med dato i filnavnet

Kan man oprette en fil med FileSystemObject hvor files navn er datoen??
eks: test_08-02-2001.txt

Hanibal
Avatar billede tdaugaard Nybegynder
08. januar 2001 - 03:15 #1
ja da ... så længe tegnene:

?|/\\*: ikke indgår i filnavnet så er det helt fin..
Avatar billede markskod Nybegynder
08. januar 2001 - 03:35 #2
okay men hvordan, kan ikke lige få det til at virke ??
Avatar billede tdaugaard Nybegynder
08. januar 2001 - 03:37 #3
Du kan ikke få det til at virke . .ehm .. så smid lige noget kode ..
Avatar billede markskod Nybegynder
08. januar 2001 - 04:34 #4
<% @Language = VBScript %>
<% Option Explicit %>
<%
const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2
Const TristateTrue = -1
Const TristateFalse = 0

Dim objFS, objTextS, strline, ScriptFile

ScriptFile = Server.MapPath(\"test.txt\")
Set objFS = Server.CreateObject(\"Scripting.FileSystemobject\")
If objFS.FileExists(ScriptFile) = True Then
Set objTextS = objFS.OpenTextFile(ScriptFile, Forappending, False, TRistateFalse)
  Else
Set objTextS = objFS.CreateTextFile(ScriptFile, False, False)
End If

%>

Og nu vil jeg så gerne have datoen ind i test.txt, overvejer at bruge Now men jeg kan ikke lige hitte ud af det, da outputte fra Now jo er xx/xx/xxxx plus klokkeslet og jeg skal kun bruge datoen.

Kan du/i hjælpe.
Avatar billede tdaugaard Nybegynder
08. januar 2001 - 04:38 #5
Erstat linien

ScriptFile = Server.MapPath(\"test.txt\")

med

ScriptFile = Server.MapPath(\"test_\" & FormatDateTime(Now, 2) & \".txt\")

I dag vil du få:

test_08-01-01.txt
Avatar billede markskod Nybegynder
08. januar 2001 - 04:53 #6
well når jeg erstatter ScriptFile=Server.MapPath(\"test.txt\") med ScriptFile = Server.MapPath(\"test_\" & FormatDateTime(Now, 2) & \".txt\")
Får jeg:
Error Type:
Microsoft VBScript runtime (0x800A004C)
Path not found
/b/index.asp, line 16

Ved du hvad det kan skyldes ???
Avatar billede tdaugaard Nybegynder
08. januar 2001 - 04:57 #7
prøv at skrive flg. LIGE før den linie jeg sagde du skulle udskifte:

response.write \"test_\" & FormatDateTime(Now, 2) & \".txt\"

og lad mig få af vide hvad de siger
Avatar billede markskod Nybegynder
08. januar 2001 - 05:01 #8
well den siger test_1/8/2001.txt ..
Så man kan jo godt forstå at den ikke kan finde stien når den ikke kan skrive den.... hehe

Kan man jeg på en eller anden måde bruge en Replace et eller andet, så man får bytte / ud med - ???
Avatar billede tdaugaard Nybegynder
08. januar 2001 - 05:37 #9
Weird .. jeg har lige prøvet her og jeg får datoen i DK format med -, men anyway, jo du kan godt bruge Replace().

ScriptFile = Server.MapPath(Replace(\"test_\" & FormatDateTime(Now, 2) & \".txt\", \"/\",\"-\")
Avatar billede markskod Nybegynder
08. januar 2001 - 05:48 #10
med en ) til sidst hjalp det, rigtig mange tak skal du have :-)
Avatar billede tdaugaard Nybegynder
08. januar 2001 - 05:53 #11
*S* jeg er lidt træt så det var nok derfor jeg glemte den sidste ) .. men det var så lidt :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester