Errore: tipo non corrispondente

[Grinder]

Al codice:

Dim objFso, objFolder, objFiles, strFolder, strFile, strPath, hdr2, nomeFile
strPath = "../ProdImg/Hdr/"

Set objFso = Server.createObject("Scripting.FileSystemObject")
Set objFolder = objFso.GetFolder(Server.MapPath(strPath))
Set objFiles = objFolder.Files

For Each strFile in objFiles

	if strFile.name <> "Thumbs.db" then
		nomeFile = left(strFile.name,len(strFile.name)-4)
	end if
	'Qui mi segna l'errore
	if InStr(cstr(nomeFile), "feat_"&rs("modello"),1) then
		hdr = "[img][/img]"
	else
		hdr = "x"
	end if
	
	if InStr(cstr(nomeFile), "hdr_"&rs("modello"),1) then
		hdr2 = "[img][/img]"
	else
		hdr2 = "y"
	end if
	
Next

Mi corrisponde l'errore:

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A000D)
Tipo non corrispondente: '[string: "12_wsxga_tft"]'
/remtech/Prodotti/pc_gaming_line.asp, line 114

"12_wsxga_tft" non è altro che il nome di una gif nella cartella che gli ho specificato...perchè non me l'accetta? Dove sbaglio?

[Sypher]

così?

if InStr(1, cstr(nomeFile), "feat_"&rs("modello"),1)

[Grinder]

Adesso non da più errore, ma non mi trova lo stesso l'immagine. Il nome del file il più delle volte è più lungo di quanto gli specifico, non è possibile fare una ricerca in base alla somiglianza? Per esempio io gli chiedo di trovarmi "feat_pincopallino", ma nella cartella l'unico file che c'è si chiama "feat_pincopallino_rosso_verde"...come faccio a trovarlo lo stesso?

[Roby_72]

Usa la left... per i primi TOT caratteri.

Roby

[Grinder]

Ho provato così:

For Each strFile in objFiles

	if strFile.name <> "Thumbs.db" then
		nomeFile = left(strFile.name,len(strFile.name)-4)
	end if
		
	nomeFile = left(nomeFile,len("feat_"&rs("modello")))
	nomeFile2 = left(nomeFile,len("hdr_"&rs("modello")))
	
	if InStr(1,cstr(nomeFile), "feat_"&rs("modello"),1) then
		hdr = "[img][/img]"
	else
		hdr = "x"
	end if
	
	if InStr(1,cstr(nomeFile2), "hdr_"&rs("modello"),1) then
		hdr2 = "[img][/img]"
	else
		hdr2 = "y"
	end if
	
Next

Ma il file continua a non trovarmelo!

[Roby_72]

Scusa ma scrivere così a cosa serve?

nomeFile = left(nomeFile,len("feat_"&rs("modello")))


Con o senza left mi pare che il risultato non cambia...

Roby

[Grinder]

mmmm , non capisco....