Utilisation de FileSystemObject ...

Question

Private Sub Form_Load()
    Dim fs As New FileSystemObject
   fs.copyfile "c:\windows\bureau\aaa.txt", "c:\windows\bureau\bbb.txt"
End Sub

Pourquoi ça ne marche pas (type défini par l'utilisateur non défini !!!)

eltaris · Answer

Essaye de mettre ta copie de fichier ailleurs que dans le 
Form_Load() (essaye le Form_Activate)
 :clown)

Homer Simpson · Answer

je te remercie mais à ma grande déception, ça ne change rien ...

Homer Simpson · Answer

c'est bon, ça marche !
Pour ceux que ça intéresse, il suffisait de sélectionner Microsoft Scripting Runtime dans le menu projet ...

Muad-Dib · Answer

ouaip

ou alor tu pouvais aussi faire " Set l_fso = createobject("Scripting.FileSystemObject")

@++

citte · Answer

Je profite de ce message pour poser une question complémentaire sur le FileSystemObject:
J'ai une page HTML avec du VBScript qui utilise le FileSystemObject pour aller lire la liste des fichiers contenu dans un dossier et les afficher sous forme de liens. Ca fonctionne bien mais dans IE, lors de l'affichage de la page, j'ai le message d'alert concernant l'activation d'un objet activex non reconnu comme sûr. Est-ce qu'il existe un moyen d'éviter ce message par code, sans modifier les options de sécurité du navigateur ? Un peu comme le code "application.displayAlert = False" en VBA ou bien un moyen de référencé l'objet Filesystem en question. Ci dessous le code VBS dans ma page:

Sub PhoneFiles()

Dim fso, dossier, lstfichiers, fichier
const chemin = "//Ccesan/EccParam/TELEPHONIE"
Set fso = CreateObject("Scripting.FileSystemObject")
Set dossier = fso.GetFolder(chemin)
Set lstfichiers = dossier.files
for each fichier in lstfichiers

document.write "[ & fichier &  " & fichier.name & "]
"

next
end Sub

pcastain · Answer

pour eviter le message activeX
renome ta page en .hta aulieu de htm ou html

Pascal

Utilisation de FileSystemObject ...

6 réponses

Discussions similaires