Alle bestanden in map verwijderen lukt niet

[haaswijk]

Hallo allemaal!

Om de inhoud van een bepaalde map te verwijderen heb ik in Visual Basic 6 een button "Command1" met de volgende functie:

Private Sub Command1_Click()
Dim objFSO, vSystemDrive
Set WshShell = WScript.CreateObject("Wscript.Shell")
Set oShell = CreateObject("Wscript.Shell")
strUserProfile = oShell.ExpandEnvironmentStrings("%USERPROFILE%")
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(strUserProfile & "\test") Then
   objFSO.DeleteFile (strUserProfile & "\test\*.*")
End If
End Sub

De bedoeling is dat bovenstaande de inhoud van de map C:\Documents and Settings\{willekeurigeUsername}\test\ verwijderd. Helaas krijg ik bij het uitvoeren van de functie de melding: "Run-time error 424: Object required".

Het vreemde is, dat de code wel werkt in een apart *.VBS bestand. Weet iemand hoe ik dit werkend kan krijgen in VB6?

Thanks alvast!

 

[Djoane]

Zit er wel iets in de map?

 

[haaswijk]

Zit er wel iets in de map?

Ja, er staan wel bestanden in.

 

[Djoane]

Ik ben er geen goede in... Maar ik lees t alsof je eerst iets aan wilt maken, om het vervolgens te deleten?

 

[haaswijk]

Ik ben er geen goede in... Maar ik lees t alsof je eerst iets aan wilt maken, om het vervolgens te deleten?

De bedoeling is eigenlijk dat eerst wordt gecontroleerd of een map bestaat (If objFSO.FolderExists) en indien deze bestaat, de inhoud ervan wordt verwijderd (Then objFSO.DeleteFile).

 

[Djoane]

De bedoeling is eigenlijk dat eerst wordt gecontroleerd of een map bestaat (If objFSO.FolderExists) en indien deze bestaat, de inhoud ervan wordt verwijderd (Then objFSO.DeleteFile).

Dat snap ik.. Ik bedoelde deze: Set objFSO = CreateObject("Scripting.FileSystemObject")


http://technet.microsoft.com/en-us/library/ee198716.aspx

 

[haaswijk]

Dat snap ik.. Ik bedoelde deze: Set objFSO = CreateObject("Scripting.FileSystemObject")


http://technet.microsoft.com/en-us/library/ee198716.aspx

Geen idee eigenlijk, heeft dit niet iets te maken met het instellen van omgevingsvariabelen?

 

[Djoane]

Nee... daar "Create" (maak) je dus een object mee..

Zie de link..

 

[haaswijk]

Ik heb deze regel verwijderd uit de code, waardoor het er nu zo uitziet:

Private Sub Command1_Click()
Dim objFSO, vSystemDrive
Set WshShell = WScript.CreateObject("Wscript.Shell")
Set oShell = CreateObject("Wscript.Shell")
strUserProfile = oShell.ExpandEnvironmentStrings("%USERPROFILE%")
If objFSO.FolderExists(strUserProfile & "\test") Then
   objFSO.DeleteFile (strUserProfile & "\test\*.*")
End If
End Sub

Helaas werkt het nog steeds niet in VB6, de foutmelding "Run-time error 424: Object required" blijft nog steeds

 

[Djoane]

Set WshShell = WScript.CreateObject("Wscript.Shell")
Set oShell = CreateObject("Wscript.Shell")


Je bent nogsteeds aan het createn...

 

[haaswijk]

Set WshShell = WScript.CreateObject("Wscript.Shell")
Set oShell = CreateObject("Wscript.Shell")


Je bent nogsteeds aan het createn...

Helaas, code opnieuw aangepast maar geen soelaas:

Private Sub Command1_Click()
Dim objFSO, vSystemDrive
strUserProfile = oShell.ExpandEnvironmentStrings("%USERPROFILE%")
If objFSO.FolderExists(strUserProfile & "\dus") Then
   objFSO.DeleteFile (strUserProfile & "\dus\*.*")
End If
End Sub

 

[Djoane]

Kijk hier eens naar:

http://technet.microsoft.com/en-us/library/ee198740.aspx