Replies

r u familiar with VBA? If so try the attached code, i use it to syncronize a Local folder with the same named folder on the LAN. Any comments on how to make the code better would be appreiciated.

Regards
Jambo

I’m no expert (that a sure thing) but y can’t you set up firewall software (E.g. Norton Internet Security 2003) on one of the machines that is failing as a test machine and set the firewall software to monitor all use of the specified port. Don’t know if it would work but it’s worth a try.

Jambo

Cheers Guys,

jkipk,
I

I only reseated the Graphics card when i said took it all apart. But i have 3 USB devices and a Network connection too, could these be sapping the power?

Jambo

If you have to pay for it i wouldn’t expect you to send it to me, i thought it was free. Nevermind, thanks anyway.

jambo

You guys rock, i found it under the VBA Editor in Excel, it was there all the time.

Cheers Guys
Jambo

I use

NextAvailableRow = mySheet.UsedRange.Rows.Count + 1

is there anything wrong with this?

Jambo

could you email it to me at Jamie.Aston@NtlWorld.Com please. I’ve been looking for it on the net but ain’t had any luck yet.

Jambo

Cheer’s, i will start messing about with VBS and try to do what i’m doing. Is there a VBS editor like the one in VBA or VB? This would be much better as the auto complete would help a heck of alot.

Thanks
Jambo

Or you could use the DateAdd(interval, number, date) function in VB.

i.e. SixWeeksBefore = DateAdd(“ww”,-6,myDate)

Regards
Jambo

Or you could create a VB executable and schedule it for when you want. I’ve wrote the code below very quickly and havn’t had a chance to test it so apoligies if there are any mistakes. Feel free to pick holes in it too.

Function FileExists(Fname) As Boolean
‘different method from <FileExists = Dir(Fname) “”>
‘so not to conflict with dir in calling subroutine
Dim GA As Long

On Error GoTo NoFile
GA = GetAttr(Fname)
FileExists = True
Exit Function

NoFile:
If Err.Number = 53 Or Err.Number = 68 Then
FileExists = False
Else
MsgBox Fname & Chr(13) & Err.Number & Chr(13) & Err.Description, , “File Exists Function”
End
End If
End Function

Sub Main()
‘Declare Variables
Dim OldFN as String, NewFN as String
Dim OldFP as String, NewFP as String

‘Set FIle Paths
OldFP = “The Path To Move Files From”
NewFP = “The Path To Move Files To”

‘Change To Drive Where Files To Be Moved From
ChDrive(Left(OldFP,1))
‘Change To Directory Where Files To Be Moved From
ChDir(OldFP)
OldFN = Dir(“*.*”)

Do While OldFN “”
‘Set New FilePath and FileName
NewFN = NewFP & OldFN
‘If The FIleExists Then Delete It
If FileExists(NewFN) then Kill(NewFN)
‘Move File To New Location
Name OldFN As NewFN
‘Reset OldFilename For Next File
OldFN = Dir(“*.*”)
Loop

End Sub

Regards
Jamie

Or you could create a VB executable and schedule it for when you want. I’ve wrote the code below very quickly and havn’t had a chance to test it so apoligies if there are any mistakes. Feel free to pick holes in it too.

Function FileExists(Fname) As Boolean
‘different method from <FileExists = Dir(Fname) “”>
‘so not to conflict with dir in calling subroutine
Dim GA As Long

On Error GoTo NoFile
GA = GetAttr(Fname)
FileExists = True
Exit Function

NoFile:
If Err.Number = 53 Or Err.Number = 68 Then
FileExists = False
Else
MsgBox Fname & Chr(13) & Err.Number & Chr(13) & Err.Description, , “File Exists Function”
End
End If
End Function

Sub Main()
‘Declare Variables
Dim OldFN as String, NewFN as String
Dim OldFP as String, NewFP as String

‘Set FIle Paths
OldFP = “The Path To Move Files From”
NewFP = “The Path To Move Files To”

‘Change To Drive Where Files To Be Moved From
ChDrive(Left(OldFP,1))
‘Change To Directory Where Files To Be Moved From
ChDir(OldFP)
OldFN = Dir(“*.*”)

Do While OldFN “”
‘Set New FilePath and FileName
NewFN = NewFP & OldFN
‘If The FIleExists Then Delete It
If FileExists(NewFN) then Kill(NewFN)
‘Move File To New Location
Name OldFN As NewFN
‘Reset OldFilename For Next File
OldFN = Dir(“*.*”)
Loop

End Sub

Regards
Jamie

Hi Al, Sorry to leech off ur thread but how did u intigrate GW 5.5 with Office. We use Excel & word 98 here and GW 5.5 and i constantly find myself sending out LOTS of gw’s because i can’t intigrate MS Office and GW.

thanks
Jambo

Also if your viewing files by “Details” you just have to click the “Name” bar at the top and it’ll arrange them A-Z, click again and it’ll arrange them Z-A.

Jambo

Sorry guys, been away on hols for two weeks. I tried the API way and it looks way too complicated, and all machines the program needs to run on has WSH. How would i do it the WSH way, i’ve never came accross it or tried messing with it b4.

Thanks in Advance
Jambo