[VB6] Far apparire in una label, nick con attributi determinati in un file

[Ketto93]

Salve,

Spiego meglio il mio problema.

Sto codando una cosa in VB6 e mi sono bloccato a questo punto. Cioè, devo far apparire in una label il nome della cartella contenente un file di nome rank.txt che contiene la parola moderator.

So che non avete capito nulla. Spiego meglio.

Io, in questa label, vorrei far apparire tutti i moderatori. Questi moderatori si distinguono da questo fatto. Ogni utente ha una sua cartella nominata con il suo nome utente e in ogni cartella c'è il file txt rank. Il contenuto di questo file varia a seconda del rank. Io vorrei che in questa label appaiono tutti i nomi delle cartelle che contengano questo file rank.txt con scritto moderator all'interno.

Spero di essermi spiegato.

Queste cartelle si trovano in database\user\

Grazie

[oregon]

Le cartelle stanno tutte in un disco locale del computer a partire da una certa cartella?

Utilizza la funzione Dir$ per esplorare la cartella, oppure il FileSystemObject ...

[Ketto93]

Questa cosa che sto codando si tratta di un server prende informazioni da file txt che si trovano nella cartella database.

Avendo trovato le source so che usa l'FSO.

Se vuoi ti posso allegare le source così saprai di cosa parlo.

[oregon]

Ci risiamo ... tu hai "il" source e lo vuoi modificare o vuoi scrivere un tuo programma ...

Cerca di essere chiaro, altrimenti penso che non ti rispondera' piu' nessuno ...

[Ketto93]

Ho trovate delle source di un server ma ha delle modalità che non sono codate.

Quindi le sto modificando. Manca solo da fare questa cosa.

[oregon]

Originariamente inviato da Ketto93
Ho trovate delle source di un server ma ha delle modalità che non sono codate.

Fammi un favore ... evita quelli che pensi essere termini "tecnici" e scrivi "piu' semplice" ...

Quindi le sto modificando. Manca solo da fare questa cosa.

E come si fa a dirti come modificare IL (IL !) sorgente se non hai mostrato nulla di questo sorgente ...?

[Ketto93]

Non ho mostrato nulla perchè questa opzione la sto aggiungendo da zero.

[oregon]

Sì ... ma la stai aggiungendo su un codice che esiste ...

Per esempio, e' stato gia' istanziato un oggetto FSO da poter usare?

Poi ... insomma ... se hai tutte queste difficolta', beh ... buon lavoro ...

[Ketto93]

Ecco un codice che blocca gli accessi dopo un tot online del server:

'max online
Client(Index).Rank = FSO.OpenTextFile(DBP & "users\" & LCase(Client(Index).Name) & "\rank.txt", ForReading).ReadAll
yeadude = ReadINI("server", "max_online", SettingIni)
If frmMain.Label2.Caption = yeadude Then
AmIAllowed = ReadINI("rank", "hotel_lock", DBP & "ranks\" & Client(Index).Rank & ".ini")
If AmIAllowed = "1" = False Then
Send Index, "@amod_warn/" & locale("hotel_full") & Chr(1)
frmMain.TimerDC(Index).Enabled = True
Exit Function
End If
End If

Però perchè siete così poco pazienti. Io sono venuto qui perchè so che siete molto bravi. Vi prego, per favore

[oregon]

Originariamente inviato da Ketto93
Ecco un codice che blocca gli accessi dopo un tot online del server:

Non si riesce a capire molto ... comunque, utilizza l'oggetto FSO (esistono un po' di esempi in questo forum) per leggere le cartelle che ti servono.

Ma non saprei dirti "dove" inserire questo codice perche' non si sa come e' "organizzato" il codice ... (e perche' e' "server" ...) ...

Però perchè siete così poco pazienti.

Personalmente ritengo di essere stato tanto paziente ... ma se tu non "collabori", mi dispiace, ma la pazienza termina ...