[vb] dove sta l'errore?

[snake78]

Ho il seguente programmino vb ke permette ad ogni avvio di generare uno sfondo a caso.

Option Explicit
Dim iAccident, iNumber, iCounter
Dim szFolder, szWallpaper, szFileType
Dim objFileSystem, objFolder, objFile
iNumber = 0
iCounter = 0
szFolder = “C:\Sfondi”
szWallpaper = “C:\Sfondi\wallpaper.jpg”
set objFileSystem = CreateObject(“Scripting.FileSystemObject”)
set objFolder = objFileSystem.getFolder(szFolder)
‘ Determina numero dei file
iNumber = objFolder.files.count
do
‘ Genera un numero casuale
randomize
iAccident = Fix(rnd*(iNumber)) + 1
‘ Inserire il nome del file nel Registry
for each objFile in objFolder.files
iCounter = iCounter+1
If iCounter = iAccident then
szFileType=objFile.Type
if szFileType = “Immagine JPEG” then
Call objFile.Copy(szWallpaper, true)
end if
End if
next
loop until szFileType = “Immagine JPEG”


MI da errore in riga 7 carattere 12 (carattere non valido) codice 800A0408 origine: errore di compilazione di microsoft vbscript

Thx mille.
Ciao!

[snake78]

Uppete

[snake78]

nessuno lo sa?

[RaouL_BennetH]

Ci provo io ma non garantisco

szFolder = “C:\Sfondi”
szWallpaper = “C:\Sfondi\wallpaper.jpg”

Non è che al posto di "C:\Sfondi" tu debba mettere "C:/Sfondi" ? (cioè, mettere lo slash al posto del backslash??)

cioè, così:

szFolder = “C:/Sfondi”
szWallpaper = “C:/Sfondi/wallpaper.jpg”

[snake78]

No purtroppo, continua a darmi lo stesso errore.

[RaouL_BennetH]

mmm, allora, per quel poco che so di visual basic, prova così:

szFolder = App.Path & "C:\Sfondi"
szWallpaper = App.Path & "C:\Sfondi\wallpaper.jpg"

[snake78]

mettendo quello ke hai scritto tu ora mi viene errore di carattere non valido in riga 9 e carattere 34 codice:800A0408

[RaouL_BennetH]

uhm, giusto per provare di nuovo, sempre con l'app.path, cambia i "\" in "/"

[snake78]

no non funzia purtroppo

[matpez]

Ragazzi ma perchè siccome fate VB vi mettete a programamre il VBS ??? sono due cose diverse ma simili...

Direttamente chiamando le funzioni API della mircosoft, il codice per cambiare lo sfondo è questo.. provatelo:

Cmq nn sono convinto che funzioni cone le jpg, una volta avevo sentito che andavano solo con le bmp!!!

Private Const SPIF_UPDATEINIFILE = &H1
Private Const SPIF_SENDWININICHANGE = &H2
Private Const SPI_SETDESKWALLPAPER = 20

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long

Public Sub CambiaSfondo(ByVal sWallPaper As String)
  
  'cambio lo sfondo del desktop
  If sWallPaper <> "" Then
    Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, sWallPaper, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
  End If

End Sub

[snake78]

[b]
Direttamente chiamando le funzioni API della mircosoft, il codice per cambiare lo sfondo è questo.. provatelo:
[/code]

Thx. Ma dove lo devo mettere sto codice?
Devo crearlo con il notepad?

[matpez]

notepad

Ma nn stai chiedendo aiuto su VB ?

Altrimenti hai sbagliato il titolo del 3d

Il codice lo devi mettere nel form del tuo programma!!

[snake78]

Originariamente inviato da matpez
notepad

Ma nn stai chiedendo aiuto su VB ?

Altrimenti hai sbagliato il titolo del 3d

Il codice lo devi mettere nel form del tuo programma!!

Io non so usare VB

Ho trovato sto programma in una sezione di questo forum e ho copiato il tutto suk notepad salvando poi il file come vbs.

Mi spiegheresti dove metterlo?
Cioè devo cancellare il programma e sostituirlo con il codice ke mi hai dato tu?
Thx.
Ciao!

[DanieleC88]

Forse basterebbe cambiare la linea

Dim objFileSystem, objFolder, objFile

con

Dim objFileSystem, objFolder, objFile as String

nel codice originale.