Problem Runtime Error 430 continues
-
I've got two computers, one XP and one 98 SE. On the XP computer I've programmed a little program and on that computer it works. Now, I want to run that computer on win 98SE (with VB6.0 Runtime Files installed!!). But when I want to run the program it gives a runtime error 430.... I realy don't now where the problem lies.. Here is the code for Form_Load:
Private Sub Form_Load() List1.AddItem "Bart" ... ... ... ... ... List1.AddItem "Rutger" '--------------------------------------------- GetFiles "Gasten\" End SubAnd:Public Function GetFiles(ByVal FolderName As String) Dim oFso As New FileSystemObject Dim oFolder As Folder Dim oFile As File Set oFolder = oFso.GetFolder(FolderName) For Each oFile In oFolder.Files Dim LengteFile, LengteFolder, A, B As Integer LengteFile = Len(oFile) LengteFolder = Len(oFolder) A = Lengte - 4 B = A - LengteFolder List2.AddItem Mid(oFile, LengteFolder + 2, (LengteFile - LengteFolder - 5)) Combo1.AddItem Mid(oFile, LengteFolder + 2, (LengteFile - LengteFolder - 5)) Next End FunctionCan anybody please help me!! This is very anoying!!! (¯`·._.·[eRiK]·._.·´¯) -
I've got two computers, one XP and one 98 SE. On the XP computer I've programmed a little program and on that computer it works. Now, I want to run that computer on win 98SE (with VB6.0 Runtime Files installed!!). But when I want to run the program it gives a runtime error 430.... I realy don't now where the problem lies.. Here is the code for Form_Load:
Private Sub Form_Load() List1.AddItem "Bart" ... ... ... ... ... List1.AddItem "Rutger" '--------------------------------------------- GetFiles "Gasten\" End SubAnd:Public Function GetFiles(ByVal FolderName As String) Dim oFso As New FileSystemObject Dim oFolder As Folder Dim oFile As File Set oFolder = oFso.GetFolder(FolderName) For Each oFile In oFolder.Files Dim LengteFile, LengteFolder, A, B As Integer LengteFile = Len(oFile) LengteFolder = Len(oFolder) A = Lengte - 4 B = A - LengteFolder List2.AddItem Mid(oFile, LengteFolder + 2, (LengteFile - LengteFolder - 5)) Combo1.AddItem Mid(oFile, LengteFolder + 2, (LengteFile - LengteFolder - 5)) Next End FunctionCan anybody please help me!! This is very anoying!!! (¯`·._.·[eRiK]·._.·´¯)The FileSystemObject that is installed on the other computer is not compatible with the version that you have on your computer. Install Internet Explorer 5.5 or later on the Windows 98 SE and things will work fine. You may also look for a recent version of the scripting runtime from http://msdn.microsoft.com/library/default.asp?url=/nhp/default.asp?contentid=28001169 - I usually prefer to required Internet Explorer 5.5 in my setups since the scripting runtime setup EXE sometimes seem to fail on some older computes.