Посмотрев исходный кодKiril__777 писал(а):прога отказывается работать на недавно установленной винденезапускается даже если открывать напрямую а не через кнопку.
проблем с оперативой нету, как и с виндой, косячит только эта прога, как же быть, я уже успел привыкнуть
Код: Выделить всё
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
For Each Filename As String In Directory.GetFiles(My.Application.Info.DirectoryPath & "\Templates")
LstFiles.Items.Add(Dir$(Filename, -1))
Next Filename
Catch ex As Exception
MsgBox("Какая-то ошибка!", MsgBoxStyle.Critical, "Error")
End Try
End Sub
Private Sub BtnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOk.Click, LstFiles.DoubleClick
Dim Name As String
Try
Do
Name = FileIO.FileSystem.CombinePath(Command$(), InputBox("Введите имя файла", "Создать файл", LstFiles.SelectedItem))
If Name = Command$() Then Exit Sub
If Dir$(Name, -1) <> "" Then
Select Case MsgBox("Перезаписать?", MsgBoxStyle.Exclamation Or MsgBoxStyle.YesNoCancel, "Файл уже существует!")
Case MsgBoxResult.Yes
Exit Do
Case MsgBoxResult.Cancel
Exit Sub
End Select
Else
Exit Do
End If
Loop
File.Copy(My.Application.Info.DirectoryPath & "\Templates\" & LstFiles.SelectedItem, Name)
Me.Close()
Catch ex As Exception
MsgBox("Не выполнено!" & vbCrLf & Name, MsgBoxStyle.Critical, "Error")
End Try
End Sub
End Class
Вот то, что может быть причиной:
1. В новой системе может быть не установлен .NET Framework или установлена недостаточно новая его версия. (Напоминаю, что проект сделан в VS2005).
2. Если установлена 64-х разрядная система, то я не уверен в работе программы в ней...
3. Если установленная система не Windows XP, то я не могу проверить работу программы в ней. Хотя, не думаю, что это может вызвать ошибку...
Попробуйте запустить программу не из папки Release, а из папки Debug. Возможно, в этом случае Вы получите другое (более подробное) сообщение об ошибке...
Возможно, я сделаю новый вариант в VS2010, тогда будет требоваться .NET Framework 4...