Path/File Access Error '75'

[pixelmeow]

Hi,

My program has worked fine for the last few months, but today I started getting the above error. Here's my code:

Private Sub backupFile()
    Dim dateToday
    Dim RetVal As String
    Dim fileDate As Date
    
    dateToday = "_" & Format(Now, "mm-dd-yyyy")
    If fileType <> "" Then
        newFileName = Mid(fileName, 1, InStr(fileName, ".") - 1) & dateToday & Mid(fileName, InStr(fileName, "."))
    ElseIf current_File_Name <> FINISHED_FILE Then
        newFileName = Mid(fileName, 1, InStr(fileName, ".") - 1) & "_bad_file_name_" & Mid(fileName, InStr(fileName, "."))
    End If
    
    newPathName = BACKUP_PATH & newFileName
    RetVal = Dir$(newPathName)
    If RetVal <> "" Then
        Kill newPathName
    End If
    
    Name PATH_NAME & fileName As newPathName
    Call getAttributes(newPathName)
    Call setAttributes(newPathName)
End Sub

I'm working on this code today, but I'm only working on deleting duplicates from the database tables. I haven't done anything with the files for over a month, so I don't know what happened...

The code is run on the same machine as the files and database, so there's no network programming. I haven't done *anything* to the file system.

Help! Thanks in advance!

teresa

[dglienna]

You have to have more code than that.

   dateToday = "_" & Format(Now, "mm-dd-yyyy")
    If fileType <> "" Then

dateToday is declared as an OBJECT rather than a DATE

What is fileType, and your other variables?

Also, check for viruses and spyware.

[pixelmeow]

Hi dglienna,

fileType is one of 5 different text files. They are fixed length fields that are loaded into a SQL Server database. fileType will be "master", "milestone", etc.

Will declaring dateToday as a Date change how I will have to format the new filename? All I need is the text of the date to rename the file.

This sub is just renaming the file and moving it from where it sits to a backup directory, and setting the modified date and time to current date and time.

The server this is used on is not accessible to the outside world, so there is no chance of spyware.

I'm running the program now and I'm not having the problem. At least, not yet. We'll see in about 1/2 hour when it has to move another file. It's always been the second file it chokes on. I'll let you know...

[DataMiser]

Which line of code is generating the error?

[pixelmeow]

The line that generated the error was

Name PATH_NAME & fileName As newPathName

So far today, it hasn't happened, so I'm confused about yesterday. Are there any reasons this could happen if you didn't change a thing on that computer?

[WizBang]

Is there any chance that the app hadn't terminated properly the last time it ran, resulting in two copies running at once?

[pixelmeow]

You know, that may be possible. I keep the Task Manager open because the program has no interface and I need to see that it is/isn't running, but this morning I had to use Process Explorer to see the processes TM wasn't showing me. I knew the program was still running, but couldn't see it.

I haven't had a problem today, so I don't know.

[dglienna]

Next time, try:

TSKILL /?  ' on XP

or

TASKKILL /? ' on Vista

I had a app that fired off batch files, for each letter of the alphabet.
They all had the same name, and took about 15 minutes to run.
When I wanted to kill them all, task manager took too long.

TSKILL /IM appname*

This workied to sell, that I added it to a button for the client!

[WizBang]

It's a simple matter of checking App.PrevInstance in your startup code, and exit if there's already a copy running. You can also display a message box to notify the user.

Do you have it showing a system tray icon?

[dee-u]

It's a simple matter of checking App.PrevInstance in your startup code, and exit if there's already a copy running. You can also display a message box to notify the user.

Do you have it showing a system tray icon?

Or Mutex...