Открыть файл, который находится в директории приложения - Visual Basic .NET

  1. Доброго времени суток)) Вопрос такой... вот мой код на открытия файлов из Textbox vb.net1 2 3 4 5 6 7 8 9 10 11  Dim openFileDialog1 As New OpenFileDialog()         openFileDialog1.InitialDirectory = "C:\"         openFileDialog1.Filter = "Текстовый документ (*.txt)|*.txt"         openFileDialog1.FilterIndex = 2         openFileDialog1.RestoreDirectory = True         If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then             Try                 TextBox1.Text = My.Computer.FileSystem.ReadAllText(openFileDialog1.FileName, System.Text.Encoding.Default)             Finally             End Try         End IfВот этой строкой кода мы выбираем директорию vb.net1  openFileDialog1.InitialDirectory = "C:\"как сделать так, что бы директорию выбирала сама программа из ходя из того места где она лежит, (если программа лежит на диске d: то соответственно пусть был D:\папка, если на с то C:\папка)? Заранее большое спасибо))


textual

Код:

openFileDialog1.InitialDirectory =  Application.StartupPath & "\ПАПКА\"


Похожие ответы
  1. Доброе время суток. Подскажите пожалуйста, есть база данных в ней в поле SQL1 BLOB хранятся файлы с разными расширениями, как открыть эти файлы из VB net программой установленной на ПК. Допустим, имеется в базе данных Вордовский документ, вот как отрыть файл и запустить Ворд для просмотра (реадктирования) файла?

  1. Возможно ли открыть диалоговое окно FolderBrowserDialog на определённой папке? Например, "D:\temp".vb.net1 FolderBrowserDialog1.SelectedPath = "D:\temp"не помогает. Вернее, нужная папка не перед глазами, её нужно искать прокручивая окно диалога. На картинке приблизительно ожидаемый результат

  1. Доброе время суток. Подскажите пожалуйста: Как открыть видео файл при нажатии на кнопку Т.е. есть заранее определенный файл который расположен на локальном диске При нажатии на кноку, открывается этот видео файл.

  1. Создаю структуру с возможностью сериализации и ее экземпляр:vb.net1 2 3 4 5     Public Structure STYLE         Dim Name1 As String         Dim Name2 As Single     End Structure     Public A1 As STYLEДалее сохраняю этот экземпляр в файл:vb.net1 2 3 4             Dim formatter As New Runtime.Serialization.Formatters.Binary.BinaryFormatter()             Using stream As IO.Stream = IO.File.Open(FileName, IO.FileMode.Open)                 A1 = formatter.Deserialize(stream)             End UsingОткрываю его в этой сборке без проблем, но вот в другом проекте другое пространство имен и объект не десириализуется. Как добиться совместимости сериализованных объектов в одном приложении и другом?

  1. Допустим, есть файл xml, я его взял из этого треда: Сохранение данных в XML-файлXML1 2 3 4 5 6 7 8 9 10 11 12 13 14 15       Moscow     142 000 000         Washington     280 000 000         Berlin     80 000 000   В том же треде есть код как изменить данный выше файл:vb.net1 2 3 4 5 6 7 8 9 10 11 12 13 Imports System.Xml.Linq Dim fileName As String = "D:\Exp\ccc.xml"         'загрузка документа         Dim xdoc As XDocument = XDocument.Load(fileName)         'получаем столицу России         For Each xe As XElement In xdoc.Element("Root").Elements("Country")             If xe.Attribute("name").Value = "Russia" Then                 Console.WriteLine(xe.Element("Capital").Value)                 'Изменить столицу                 xe.Element("Capital").Value = "St.Petersburg"             End If xdoc.Save(fileName)         NextКак, используя данные выше код и пространство имен, добавить новое значение в xml?

  1. Всем доброго здоровичка!!! Кто-нибудь делал программку открыть-закрыть двд??? Подскажите с кодом??? Спасибо заранее!!!

  1. Help cтолкнулся с такой ситуацией, есть форма (form1.vb) на форме расположена кнопка (Button4) при клике на которую должен открыться exe файл из директории (setup\ClientSetup.exe). После компиляции проекта в exe файл на ПК на котором была написана программа всё ок. На других ошибка что файл не найден. Использую : VB2008.net экспресс Win XP(Virtual Box) в качестве пк для написания Win 7 в качестве пк для тестирования Код кнопки Кликните здесь для просмотра всего текста Ошибка Кликните здесь для просмотра всего текста Полный текст ошибки Кликните здесь для просмотра всего текста Подробная информация об использовании оперативной (JIT) отладки вместо данного диалогового окна содержится в конце этого сообщения. ************** Текст исключения ************** System.IO.FileNotFoundException: Файл не найден. в Microsoft.VisualBasic.Interaction.Shell(String PathName, AppWinStyle Style, Boolean Wait, Int32 Timeout) в autorun.Form1.Button4_Click(Object sender, EventArgs e) в C:\Documents and Settings\Администратор.SIZI\Рабочий стол\стартовая\WindowsApplication1\WindowsApplication1\Form1.vb:строка 59 в System.Windows.Forms.Control.OnClick(EventArgs e) в System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent) в System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks) в System.Windows.Forms.Control.WndProc(Message& m) в System.Windows.Forms.ButtonBase.WndProc(Message& m) в System.Windows.Forms.Button.WndProc(Message& m) в System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m) в System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam) ************** Загруженные сборки ************** mscorlib Версия сборки: 2.0.0.0 Версия Win32: 2.0.50727.5420 (Win7SP1.050727-5400) CodeBase: file:///C:/Windows/Microsoft.NET/Framework64/v2.0.50727/mscorlib.dll ---------------------------------------- autorun Версия сборки: 1.0.0.0 Версия Win32: 1.0.0.0 CodeBase: file:///C:/Users/Юрий/Desktop/123/autorun.exe ---------------------------------------- Microsoft.VisualBasic Версия сборки: 8.0.0.0 Версия Win32: 8.0.50727.5420 (Win7SP1.050727-5400) CodeBase: file:///C:/Windows/assembly/GAC_MSIL/Microsoft.VisualBasic/8.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.dll ---------------------------------------- System Версия сборки: 2.0.0.0 Версия Win32: 2.0.50727.5420 (Win7SP1.050727-5400) CodeBase: file:///C:/Windows/assembly/GAC_MSIL/System/2.0.0.0__b77a5c561934e089/System.dll ---------------------------------------- System.Windows.Forms Версия сборки: 2.0.0.0 Версия Win32: 2.0.50727.5420 (Win7SP1.050727-5400) CodeBase: file:///C:/Windows/assembly/GAC_MSIL/System.Windows.Forms/2.0.0.0__b77a5c561934e089/System.Windows.Forms.dll ---------------------------------------- System.Drawing Версия сборки: 2.0.0.0 Версия Win32: 2.0.50727.5420 (Win7SP1.050727-5400) CodeBase: file:///C:/Windows/assembly/GAC_MSIL/System.Drawing/2.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll ---------------------------------------- System.Runtime.Remoting Версия сборки: 2.0.0.0 Версия Win32: 2.0.50727.5420 (Win7SP1.050727-5400) CodeBase: file:///C:/Windows/assembly/GAC_MSIL/System.Runtime.Remoting/2.0.0.0__b77a5c561934e089/System.Runtime.Remoting.dll ---------------------------------------- Microsoft.VisualBasic.resources Версия сборки: 8.0.0.0 Версия Win32: 8.0.50727.4927 (NetFXspW7.050727-4900) CodeBase: file:///C:/Windows/assembly/GAC_MSIL/Microsoft.VisualBasic.resources/8.0.0.0_ru_b03f5f7f11d50a3a/Microsoft.VisualBasic.resources.dll ---------------------------------------- System.Windows.Forms.resources Версия сборки: 2.0.0.0 Версия Win32: 2.0.50727.4927 (NetFXspW7.050727-4900) CodeBase: file:///C:/Windows/assembly/GAC_MSIL/System.Windows.Forms.resources/2.0.0.0_ru_b77a5c561934e089/System.Windows.Forms.resources.dll ---------------------------------------- mscorlib.resources Версия сборки: 2.0.0.0 Версия Win32: 2.0.50727.5420 (Win7SP1.050727-5400) CodeBase: file:///C:/Windows/Microsoft.NET/Framework64/v2.0.50727/mscorlib.dll ---------------------------------------- ************** Оперативная отладка (JIT) ************** Для подключения оперативной (JIT) отладки файл .config данного приложения или компьютера (machine.config) должен иметь значение jitDebugging, установленное в секции system.windows.forms. Приложение также должно быть скомпилировано с включенной отладкой. Например: При включенной отладке JIT любое необрабатываемое исключение пересылается отладчику JIT, зарегистрированному на данном компьютере, вместо того чтобы обрабатываться данным диалоговым окном.

  1. Всем добрый вечер. Подскажите пожалуйста. Есть изображение с расширением jpg просто его не посмотреть только через photoshop. Каким образом можно его открыть в PictureBox? Или какие dll посоветуете импорт\экспорт jpg? Не подскажите как можно сделать.

  1. Всем доброе время суток. Пилю программку одну и не магу понять как в Form1 на половине формы внутри открыть Form2 и.т.д при нажатии на кнопку в MenuStrip1 как на скриншоте. Скриншот: Есть код:vb.net1 2 3 4 Private Sub Command1_Click() Form2.Visible = True Form1.Visible = False End SubНо он открывает отдельно форму программы, а мне нужно чтоб в самой Form1 (не на всю форму) открывалось окно Form2, Form3 и так далее.

  1. никак не могу нормально запрограмировать кнопки перехода между формами.