Newsgroup: it.comp.lang.visual-basic
Titolo: Scripting.FileSystemObject e Win 95

E' possibile che Scripting.FileSystemObject non funzioni in Win 95 ?
Eppure ho registrato MSCOMCTL.OCX !
--> E' corretto assegnare la dimensione di un file ad una variabile Single ?
E' più corretto in questo modo:
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists("a:\cartella\nomefile.txt") = True Then
Oppure in questo:
Dir("a:\cartella\nomefile.txt") = True Then
Grazie
--
Gulp ! Forse mi sono perso qualcosa !
Per rispondere via E-mail togli la x da 
xd...@cyberjunkie.com

 Dir("a:\cartella\nomefile.txt") = True Then
Dici che funziona?
If Dir("a:\cartella\nomefile.txt")<>"" Then

> If Dir("a:\cartella\nomefile.txt")<>"" Then
Si okkkkei ho "fallato" la scrittura ! Per cortesia hai tempo e voglia di
suggerirmi qualcosa relativamente alle domande del post ?


 suggerirmi qualcosa relativamente alle domande del post ?
Non uso FSO, mi spiace.

> Non uso FSO, mi spiace.
Ma allora cosa scrivi al posto di
fso.GetFile("C:\optodent\ricevute.mdb").Size
oppure fso.GetDrive("A").FreeSpace ?


 oppure fso.GetDrive("A").FreeSpace ?
Spazio del disco? Credo di usare qualche API...

> Spazio del disco? Credo di usare qualche API...
Ok rinuncio..per me è al momento territorio minato.


 Ok rinuncio..per me č al momento territorio minato.
E' facile (da 
www.allapi.net
, API-Guide):
Create a new project, and add this code to Form1:
Private Declare Function GetDiskFreeSpaceEx Lib "kernel32" Alias
"GetDiskFreeSpaceExA" (ByVal lpRootPathName As String,
lpFreeBytesAvailableToCaller As Currency, lpTotalNumberOfBytes As Currency,
lpTotalNumberOfFreeBytes As Currency) As Long
Private Sub Form_Load()
Dim r As Long, BytesFreeToCalller As Currency, TotalBytes As Currency
Dim TotalFreeBytes As Currency, TotalBytesUsed As Currency
'the drive to find
Const RootPathName = "C:\"
'get the drive's disk parameters
Call GetDiskFreeSpaceEx(RootPathName, BytesFreeToCalller, TotalBytes,
TotalFreeBytes)
'show the results, multiplying the returned
'value by 10000 to adjust for the 4 decimal
'places that the currency data type returns.
Me.AutoRedraw = True
Me.Cls
Me.Print
Me.Print " Total Number Of Bytes:", Format$(TotalBytes * 10000,
"###,###,###,##0") & " bytes"
Me.Print " Total Free Bytes:", Format$(TotalFreeBytes * 10000,
"###,###,###,##0") & " bytes"
Me.Print " Free Bytes Available:", Format$(BytesFreeToCalller * 10000,
"###,###,###,##0") & " bytes"
Me.Print " Total Space Used :", Format$((TotalBytes - TotalFreeBytes) *
10000, "###,###,###,##0") & " bytes"
End Sub

 Create a new project, and add this code to Form1:
Ecco trovato il modo per passare un'altra notte insonne....
beh a parte gli scherzi, ora do un'occhiata. grazie del link e della tua
disponibilità
Ciao


 Ecco trovato il modo per passare un'altra notte insonne....
Crei un form, ci fai doppio click sopra, cancelli il codice che prepara
l'evento Load,  e incolli il codice che ti ho postato. Esegui.

 Lof(canale)
O anche FileLen(file)

 Eppure ho registrato MSCOMCTL.OCX !
Che non mi risulta riguardi il FSO.
Ciao
Alberto

 Dir("a:\cartella\nomefile.txt") = True Then
Evitando errori di FSO non installato? :PPP
Ciao

 Evitando errori di FSO non installato? :PPP
Penso di riuscire a concludere la sostituzione di FSO,ma se avessi voluto
installare il suddetto su Win95, senza combinare casini, cosa avrei dovuto
fare?


 Eppure ho registrato MSCOMCTL.OCX
Sbagliato. E' il file *scrrun.dll* da registrare. Non quella OCX.
Buona Fortuna e che i canidi ti assistano :) gh...
Ciao....
Matteo

 con l'Euro? :-)))
aaaah!
E allora perchè hai detto Single? :)
Currency perchè l'api per le dimensioni del disco vogliono un long da 64 bit
(e tu mi IMPARI che in VB il long è 32bit).
Allora per aggirare il prob si usa il currency che in realtà è un int64
scalato di 10.000 (4 decimali) e non ha niente a che vedere con i virgola
mobile.
Ciao.
--
Math Parser : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net