scrittura automatica su db

[Okocha]

è possibile creare uno script che trascriva in un db i files precedentemente letti da una cartella?

come si può creare?

grazie.

[Santino83_02]

si è possibile.. per crearlo... intanto parti dal leggere i files nella cartella usando FileSystemObject. Poi devi solo fare delle query

[Okocha]

ok, ho trovato questo per leggere il contento della cartella.

Dim fso
Dim folder
Dim file
Dim string

' creo il FSO ed accedo alla singola cartella
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder( ./file )

' pulisco la stringa
string = ""

' ciclo su tutti i file della cartella
For Each file in folder.Files
string = string & file.name
string = string & vbCrLf
Next

Set folder=Nothing
Set fso=Nothing

Ora c'è un problema. I files di cui dispogo sono così strutturati:
Cognome_Nome-Titolo_del_brano.estensione
ed simili.

Nel db dovrei inserire in un campo il Cognome_Nome, ed in un altra il Titolo_del_brano;

è possibile scorporare il nome del files e poi inserire nei campi appropriate?

[Okocha]

scorporo:

Dim stringa, arr
stringa = "arr(0)"
arr = split(stringa, "-")
document.write arr(0) & " " & arr(1)

[wallrider]

Originariamente inviato da Okocha
scorporo:

Dim stringa, arr
stringa = "arr(0)" 
arr = split(stringa, "-")
document.write arr(0) & " " & arr(1)

[Santino83_02]

Originariamente inviato da wallrider

[Okocha]

x wall****

grazie mi hai dato una risposta utile e costruttiva

[Okocha]

non ho capito se lo script che ho trovato per lo scorporo va bene oppure se ci sono errori.

Qualcuno sa aiutrmi?

[wallrider]

scusa sono stato troppo sintetico, il senso era:"perchè hai messo l'istruzione che ho evidenziato in rosso?"

[Okocha]

forse così è corretto?

Dim stringa, arr
stringa = ""
arr = split(stringa, "-")
document.write arr(0) & " " & arr(1)