نمایش نتایج 1 تا 4 از 4

نام تاپیک: کپی از یک فایل مشخص و ذخیره آن در محل دیگر با savefiledialog

  1. #1
    کاربر دائمی
    تاریخ عضویت
    شهریور 1389
    محل زندگی
    ایران
    پست
    116

    Question کپی از یک فایل مشخص و ذخیره آن در محل دیگر با savefiledialog

    با سلام دوستان
    من در ریشه روت یه فایل دیتابیس اکسس دارم کلیک بک آپ براش گذاشتم یعنی میخوام از اون فایل اکسس دیتابیس که در مسیر date/Cantact.accdb قرار دارد اتوماتیک کپی بگیرد و با استفاده از پنجره savedialogfile هر کجا خواستم ذخیره کنه.
    ممنون میشم کمک کنید


    اینم کد که در ریشه اتوماتیک ذخیره میشه میخوام با استفاده از savedialofile بتونم هر جا بخوام ذخیره کنم.

    Try
    'set the destination and a file name with the date and time
    Dim backupfiledestination As String = Application.StartupPath & "" & "backup_golden" & Format(Now(), "_yyyy-M-d_H-m-s") & ".accdb"
    'location of the database file that you want to backup
    Dim databaseFile As String = Application.StartupPath & "\data\Cantact.accdb"

    'create a backup by using Filecopy Command to copy the file from location to destination
    FileCopy(databaseFile, backupfiledestination)
    MessageBox.Show("پشتیبان گیری با موفقیت انجام شد.", "پیغام پشتیبان گیری", MessageBoxButtons.OK, MessageBoxIcon.Information)
    Catch ex As Exception
    'catch an error
    MsgBox(ex.Message)

    End Try


  2. #2

    نقل قول: کپی از یک فایل مشخص و ذخیره آن در محل دیگر با savefiledialog

    نقل قول نوشته شده توسط karem2074 مشاهده تاپیک
    با سلام دوستان
    من در ریشه روت یه فایل دیتابیس اکسس دارم کلیک بک آپ براش گذاشتم یعنی میخوام از اون فایل اکسس دیتابیس که در مسیر date/Cantact.accdb قرار دارد اتوماتیک کپی بگیرد و با استفاده از پنجره savedialogfile هر کجا خواستم ذخیره کنه.
    ممنون میشم کمک کنید


    اینم کد که در ریشه اتوماتیک ذخیره میشه میخوام با استفاده از savedialofile بتونم هر جا بخوام ذخیره کنم.

    Try
    'set the destination and a file name with the date and time
    Dim backupfiledestination As String = Application.StartupPath & "" & "backup_golden" & Format(Now(), "_yyyy-M-d_H-m-s") & ".accdb"
    'location of the database file that you want to backup
    Dim databaseFile As String = Application.StartupPath & "\data\Cantact.accdb"

    'create a backup by using Filecopy Command to copy the file from location to destination
    FileCopy(databaseFile, backupfiledestination)
    MessageBox.Show("پشتیبان گیری با موفقیت انجام شد.", "پیغام پشتیبان گیری", MessageBoxButtons.OK, MessageBoxIcon.Information)
    Catch ex As Exception
    'catch an error
    MsgBox(ex.Message)

    End Try
    بهتره عادت کنید که موقع ادغام دو تکه مسیر فایل یا پوشه از IO.Path.Combine استفاده کنید.
    مثلا بجای "Application.StartupPath & "\data\Cantact.accdb از IO.Path.Combine(Application.StartupPath, "data\Cantact.accdb") استفاده کنید.
    در اغلب موارد اتفاق بدی نمی افته ولی در بعضی حالت های خاص که ممکنه بین تکه ها تعداد "" کم و زیاد بشه استفاده نکردن از Path.Combine مشکل ایجاد می کنه.

    Using dialog As New SaveFileDialog
    'set the destination and a file name with the date and time
    dialog.FileName = "backup_golden" & Format(Now(), "_yyyy-M-d_H-m-s") & ".accdb"
    If dialog.ShowDialog() = DialogResult.OK Then
    Try
    Dim s = IO.Path.Combine(Application.StartupPath, "data\Cantact.accdb")
    Dim backupfiledestination As String = dialog.FileName
    'location of the database file that you want to backup
    Dim databaseFile As String = Application.StartupPath & "\data\Cantact.accdb"
    'create a backup by using Filecopy Command to copy the file from location to destination
    FileCopy(databaseFile, backupfiledestination)
    MessageBox.Show("پشتیبان گیری با موفقیت انجام شد.", "پیغام پشتیبان گیری", MessageBoxButtons.OK, MessageBoxIcon.Information)
    Catch ex As Exception
    'catch an error
    MsgBox(ex.Message)
    End Try
    End If
    End Using

  3. #3

    نقل قول: کپی از یک فایل مشخص و ذخیره آن در محل دیگر با savefiledialog

    نقل قول نوشته شده توسط karem2074 مشاهده تاپیک
    با سلام دوستان
    من در ریشه روت یه فایل دیتابیس اکسس دارم کلیک بک آپ براش گذاشتم یعنی میخوام از اون فایل اکسس دیتابیس که در مسیر date/Cantact.accdb قرار دارد اتوماتیک کپی بگیرد و با استفاده از پنجره savedialogfile هر کجا خواستم ذخیره کنه.
    ممنون میشم کمک کنید


    اینم کد که در ریشه اتوماتیک ذخیره میشه میخوام با استفاده از savedialofile بتونم هر جا بخوام ذخیره کنم.

    Try
    'set the destination and a file name with the date and time
    Dim backupfiledestination As String = Application.StartupPath & "" & "backup_golden" & Format(Now(), "_yyyy-M-d_H-m-s") & ".accdb"
    'location of the database file that you want to backup
    Dim databaseFile As String = Application.StartupPath & "\data\Cantact.accdb"

    'create a backup by using Filecopy Command to copy the file from location to destination
    FileCopy(databaseFile, backupfiledestination)
    MessageBox.Show("پشتیبان گیری با موفقیت انجام شد.", "پیغام پشتیبان گیری", MessageBoxButtons.OK, MessageBoxIcon.Information)
    Catch ex As Exception
    'catch an error
    MsgBox(ex.Message)

    End Try
    بهتره عادت کنید که موقع ادغام دو تکه مسیر فایل یا پوشه از IO.Path.Combine استفاده کنید.
    مثلا بجای "Application.StartupPath & "\data\Cantact.accdb از IO.Path.Combine(Application.StartupPath, "data\Cantact.accdb") استفاده کنید.
    در اغلب موارد اتفاق بدی نمی افته ولی در بعضی حالت های خاص که ممکنه بین تکه ها تعداد backslash کم و زیاد بشه استفاده نکردن از Path.Combine مشکل ایجاد می کنه.

    Using dialog As New SaveFileDialog
    'set the destination and a file name with the date and time
    dialog.FileName = "backup_golden" & Format(Now(), "_yyyy-M-d_H-m-s") & ".accdb"
    If dialog.ShowDialog() = DialogResult.OK Then
    Try
    Dim s = IO.Path.Combine(Application.StartupPath, "data\Cantact.accdb")
    Dim backupfiledestination As String = dialog.FileName
    'location of the database file that you want to backup
    Dim databaseFile As String = Application.StartupPath & "\data\Cantact.accdb"
    'create a backup by using Filecopy Command to copy the file from location to destination
    FileCopy(databaseFile, backupfiledestination)
    MessageBox.Show("پشتیبان گیری با موفقیت انجام شد.", "پیغام پشتیبان گیری", MessageBoxButtons.OK, MessageBoxIcon.Information)
    Catch ex As Exception
    'catch an error
    MsgBox(ex.Message)
    End Try
    End If
    End Using

  4. #4
    کاربر دائمی
    تاریخ عضویت
    شهریور 1389
    محل زندگی
    ایران
    پست
    116

    نقل قول: کپی از یک فایل مشخص و ذخیره آن در محل دیگر با savefiledialog

    داداش خیلی خیلی ممنون لطف کردید
    نقل قول نوشته شده توسط the king مشاهده تاپیک
    بهتره عادت کنید که موقع ادغام دو تکه مسیر فایل یا پوشه از IO.Path.Combine استفاده کنید.
    مثلا بجای "Application.StartupPath & "\data\Cantact.accdb از IO.Path.Combine(Application.StartupPath, "data\Cantact.accdb") استفاده کنید.
    در اغلب موارد اتفاق بدی نمی افته ولی در بعضی حالت های خاص که ممکنه بین تکه ها تعداد backslash کم و زیاد بشه استفاده نکردن از Path.Combine مشکل ایجاد می کنه.

    Using dialog As New SaveFileDialog
    'set the destination and a file name with the date and time
    dialog.FileName = "backup_golden" & Format(Now(), "_yyyy-M-d_H-m-s") & ".accdb"
    If dialog.ShowDialog() = DialogResult.OK Then
    Try
    Dim s = IO.Path.Combine(Application.StartupPath, "data\Cantact.accdb")
    Dim backupfiledestination As String = dialog.FileName
    'location of the database file that you want to backup
    Dim databaseFile As String = Application.StartupPath & "\data\Cantact.accdb"
    'create a backup by using Filecopy Command to copy the file from location to destination
    FileCopy(databaseFile, backupfiledestination)
    MessageBox.Show("پشتیبان گیری با موفقیت انجام شد.", "پیغام پشتیبان گیری", MessageBoxButtons.OK, MessageBoxIcon.Information)
    Catch ex As Exception
    'catch an error
    MsgBox(ex.Message)
    End Try
    End If
    End Using

تاپیک های مشابه

  1. حرفه ای: ذخیره فایل اکسل ایجاد شده بدون نمایش savefiledialog
    نوشته شده توسط Sal_64 در بخش C#‎‎
    پاسخ: 1
    آخرین پست: دوشنبه 02 خرداد 1390, 10:46 صبح
  2. سوال: saveFileDialog
    نوشته شده توسط طبیب دل در بخش C#‎‎
    پاسخ: 4
    آخرین پست: دوشنبه 24 اسفند 1388, 22:44 عصر
  3. ذخیره عکس با savefiledialog
    نوشته شده توسط vhossein در بخش C#‎‎
    پاسخ: 8
    آخرین پست: چهارشنبه 18 آذر 1388, 00:41 صبح
  4. SaveFileDialog
    نوشته شده توسط nasimnastaran در بخش C#‎‎
    پاسخ: 1
    آخرین پست: یک شنبه 08 آذر 1388, 09:21 صبح
  5. سوال: SaveFileDialog
    نوشته شده توسط IranVisual در بخش VB.NET
    پاسخ: 3
    آخرین پست: پنج شنبه 22 اسفند 1387, 11:35 صبح

قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •