Oppure

Loading
23/08/08 5:09
salve a tutti ragazzi
mi trovo un po' in difficolta' su un problema piuttosto banale, all'avvio del programma devo caricare su una variabile tutti i nomi dei file contenuti in una cartella senxa pero' caricare la loro estensione....

questo e' quello che faccio 

  s = Dir(App.Path & "\smile" & "\*.bmp")
       For i = 0 To 19
          If s = "" Then Exit For
             smile = smile & s & ","
             s = Dir
      Next i

in questo modo carico si tutti i nomi dei file ma anche le relative estensioni "bmp".....
esempio se un file si chiama "rrrr" con questo ciclo me lo carica "rrr.bmp"
io vorrei riuscira a caricare solo il nome senza la sua estensione....

ciao a tutti
23/08/08 10:17
Overflow
Postato originariamente da muteblaster: 
  s = Dir(App.Path & "\smile" & "\*.bmp")
       For i = 0 To 19
          If s = "" Then Exit For
             smile = smile & s & ","
             s = Dir
      Next i



inserisci dopo il controllo sulla stringa s(if s="" then)
s = Left(s, Len(s) - 4) quindi: 
s = Dir(App.Path & "\smile" & "\*.bmp")
       For i = 0 To 19
          If s = "" Then Exit For
             s = Left(s, Len(s) - 4)
             smile = smile & s & ","
             s = Dir
       Next i

o anche: 
s = Dir(App.Path & "\smile" & "\*.bmp")
       For i = 0 To 19
          If s = "" Then Exit For
             smile = smile & s & ","
             s = left(Dir,len(Dir)-4)
       Next i


ma quest'ultimo non l'ho testato e non so se funzioni.
Ultima modifica effettuata da Overflow 23/08/08 10:25
aaa
23/08/08 11:16
GrG
Oppure potresti separare l'estensione con uno Split()
aaa
23/08/08 11:32
funziona prorpio al caso mio....
una ultima cosa per togliere la virgola allultima parola come si fa'?.....
io faccio
smile = smile & s & ","
pero' questo mi crea un problema
esempio
" ee,rrr,ttt,"
vorrei che se dopo la virgola non c'e' nessuna parola l'ultima virgola non venisse messa
avete idea di come si puo' fare?....

23/08/08 11:47
Overflow
togli la virgola alla fine del ciclo. 
s = Dir(App.Path & "\smile" & "\*.bmp")
       For i = 0 To 19
          If s = "" Then Exit For
             s = Left(s, Len(s) - 4)
             smile = smile & s & ","
             s = Dir
       Next i

smile = left(smile,len(smile)-1)
aaa