Min PC går i står når den skal indlæse tallet for billede filer fra Server.Mappath ..
Set objFileSystem = CreateObject("Scripting.FileSystemObject") Set objMainFolder = objFileSystem.GetFolder(Server.Mappath("../images/" & Session("DealerID")) & "/news\") Set objRsFiles = objMainFolder.Files intFilesCount = -1 redim aryFiles(0) FOR EACH FILE IN objRsFiles strFileName = file.name intLenMynd = INT(Instr(1, file.name, "_litil.jpg", 1)-1) IF intLenMynd>0 THEN strImage = LCASE(LEFT(strFileName,intLenMynd) & RIGHT(strFileName,4)) strImage = LEFT(strImage,Len(strImage)-4) END IF IF Right(strFileName,10) = "_litil.jpg" OR Right(strFileName,10) = "_litil.gif" then intFilesCount = intFilesCount + 1 redim preserve aryFiles(intFilesCount) aryFiles(intFilesCount) = strImage END IF NEXT
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Hvad om du lige starter med at finde ud af hvilken linie der får din pc´er til kokse ?
Set objFileSystem = CreateObject("Scripting.FileSystemObject") Set objMainFolder = objFileSystem.GetFolder(Server.Mappath("../images/" & Session("DealerID")) & "/news") Set objRsFiles = objMainFolder.Files intFilesCount = -1 redim aryFiles(0) FOR EACH FILE IN objRsFiles response.write strFileName = file.name NEXT
virker ovenstående?
(ps. sessions har det med at "knække" dvs. forsvinde fra hukommelsen - hvilket jeg selv har stødt på et par gange)
Næææhhh den fungerer ikke endnu - jeg tror nok det har noget med min opsætning af IIS'eren (version 5.0), men er ikke sikker. N.B. koden kører på internettet, bare ikke på min computer .. Min PC vil køre første linje af koden, men så standser den op i næste linje - selvom der står "udført" forneden og ikke henter næste side frem. Hjælper disse oplysninger noget.
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.
