مشکل در کپی کردن فایل [بایگانی]

MxSonic

دوشنبه 21 اسفند 1391, 19:13 عصر

سلام دوستان
خسته نباشید
من تو کپی کردن مشکلاتی دارم
همه ی کدهارو تقریبا تست کردم ولی نتیجه نگرفتم
این کد منه
FileCopy "\newfolder\new.new", "C:\Documents and Settings
بله درست متوجه شدید
من میخوام برنامرو تو پوشه ای که گذاشتم از اون پوشه و درایو فایلو کپی کنه
ولی نمیدونم مشکل از کجاست
لطفا کد صحیحش رو بگید
ممنون

ho3ein.3ven

دوشنبه 21 اسفند 1391, 19:32 عصر

سلام
این کد رو امتحان کن :
FileCopy App.Path & "\project1.exe", "d:/12332.exe"

the king

دوشنبه 21 اسفند 1391, 21:18 عصر

سلام دوستان
خسته نباشید
من تو کپی کردن مشکلاتی دارم
همه ی کدهارو تقریبا تست کردم ولی نتیجه نگرفتم
این کد منه
FileCopy "\newfolder\new.new", "C:\Documents and Settings
بله درست متوجه شدید
من میخوام برنامرو تو پوشه ای که گذاشتم از اون پوشه و درایو فایلو کپی کنه
ولی نمیدونم مشکل از کجاست
لطفا کد صحیحش رو بگید
ممنون

مسیر مقصد FileCopy باید شامل اسم فایل هم باشه، اما به هر حال پوشه Documents and Settings محافظت شده است.

Private Sub Form_Load()
Dim path As String
path = App.path & IIf(Right(App.path, 1) = "\", "", "\")
FileCopy path & "newfolder\new.new", "C:\Documents and Settings\new.new"
End Sub

MxSonic

سه شنبه 22 اسفند 1391, 13:14 عصر

مسیر مقصد FileCopy باید شامل اسم فایل هم باشه، اما به هر حال پوشه Documents and Settings محافظت شده است.

Private Sub Form_Load()
Dim path As String
path = App.path & IIf(Right(App.path, 1) = "\", "", "\")
FileCopy path & "newfolder\new.new", "C:\Documents and Settings\new.new"
End Sub

ممنون از پاسختون
چجوری میتونم فایل مقصد رو هم مثل مبدا تعیین کنم
مثلا:

FileCopy path & "newfolder\new.new", "newfolder\new.new"

من جایگزین کردم در کد بالا ولی ارور میده

m2011kh

سه شنبه 22 اسفند 1391, 17:23 عصر

باید اینطور بنویسید:

FileCopy App.Path & "newfolder\new.new", App.Path "newfolder\new.new"

موفق و سربلند باشید.

MMD

program2vb

سه شنبه 22 اسفند 1391, 19:20 عصر

سلام دوستان
خسته نباشید
من تو کپی کردن مشکلاتی دارم
همه ی کدهارو تقریبا تست کردم ولی نتیجه نگرفتم
این کد منه
FileCopy "\newfolder\new.new", "C:\Documents and Settings
بله درست متوجه شدید
من میخوام برنامرو تو پوشه ای که گذاشتم از اون پوشه و درایو فایلو کپی کنه
ولی نمیدونم مشکل از کجاست
لطفا کد صحیحش رو بگید
ممنون

سلام خدمت شما دوست عزیز :

شما میتونید کد زیر رو امتحان کنین جواب میده حتما .....
درضمن امکان داره آنتی ویروس شما به کپی کردن فایلها در درایوی که ویندوز توش نصب باشه گیر بده .... و در این حالت وی بی ران تایم خطا میده اینو هم در نظر بگیرید ..... که باید براش از روشهای دور زدن آنتی ویروس استفاده کنی ...

Option Explicit
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Private Sub Command1_Click()
Dim FH As Long
CopyFile App.Path & "\new.new", "C:\Documents and Settings\new.new", FH
End Sub

کد = [ App.Path ]

با استفاده از این کد میتونی محلی که پروژه از اونجا اجرا میشه رو پیدا کنی ..... برای امتحان کردنش میتونی این کد رو داخل یه کامند بنویسی و نتیجه رو خودت ببینی و منظورمو متوجه بشی .....

? app.Path

و برای اینکه بتونی خود فایل پروژه رو کپی کنی احتیاج به اسم پروژه داری که اونم میتونی با استفاده از app.EXEName بدست بیاری که برای اینکه اینا رو جمع کنی با استفاده از علامت (&) میتونی به هم متصل کنی .

مثال : app.Path & "\" & App.EXEName

با کد بالا آدرس خود برنامه رو بدست میاری .... و میتونی با همون آدرس پروژه رو کپی کنی در هر جایی که بخوای ....

موفق و پیروز باشی در پناه خدا ..... یاعلی

m2011kh

سه شنبه 22 اسفند 1391, 22:32 عصر

میدونم جای درستی برای طرح سوالم نیست ولی میشه در مورد روش های دور زدن انتی ویروس ها یه توضیحی بدین؟؟؟

خیلی ممنون میشم.من تو چند تا از پروژه ها با انتی ویروس ها خیلی مشکل دارم.رو تابع GetAsyncKeyState خیلی حساسیت نشون میدن.

MMD

MxSonic

جمعه 25 اسفند 1391, 19:40 عصر

خیلی ممنون از همه دوستان
ببخشید که اسپم دادم ولی ارزش کار شمابرای من بیشتر ازیه تشکر بود:چشمک:

MxSonic

یک شنبه 04 فروردین 1392, 13:21 عصر

سلام
این کد من مشکلش چیه؟

Option Explicit
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Private Sub Command1_Click()
Dim FH As Long
FileCopy App.path & "\PersianMw\AFC\map.txt", App.Path "\nrw2\map.txt", FH
End Sub

amin32

یک شنبه 04 فروردین 1392, 17:17 عصر

سلام
این کد من مشکلش چیه؟

باید یک علامت "&" , بین app.path و بقیه مسیر بگذارید. یعنی میشه:

Option Explicit
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Private Sub Command1_Click()
Dim FH As Long
FileCopy App.Path & "\PersianMw\AFC\map.txt", App.Path & "\nrw2\map.txt", FH
End Sub

MxSonic

دوشنبه 05 فروردین 1392, 21:15 عصر

ارور wrong number of arguments میده:متفکر:

SlowCode

دوشنبه 05 فروردین 1392, 22:33 عصر

داداش من چرا خودتو اذیت میکنی؟!!
اگه مبتدی هستی فعلا با توابع خود وی بی کار کن.
CopyFile App.Path & "\PersianMw\AFC\map.txt", App.Path & "\nrw2\map.txt"
راستش 10 تا پست واسه یه کپی کردن یکم زیاده!:متفکر:

MxSonic

سه شنبه 06 فروردین 1392, 23:32 عصر

:ناراحت:
بازم ارور میده

vbhamed

چهارشنبه 07 فروردین 1392, 00:11 صبح

سلام
اين از كد خود شما
Option Explicit

Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

Private Sub Command1_Click()

FileCopy App.Path & "\PersianMw\AFC\map.txt", App.Path & "\nrw2\map.txt"

End Sub

اما راه بهتر
از منوي Project گزينه References آيتم Microsot Scripting Runtime رو انتخاب كنيد و بعد كدهاي زير رو بنويسيد
البته شيء Fso كه ايجاد كرديم قابليتهاي بسيار زياد ديگه اي هم داره
Option Explicit

Private Sub Command1_Click()

Dim fso As New FileSystemObject

fso.CopyFile App.Path & "\PersianMw\AFC\map.txt", App.Path & "\nrw2\map.txt", True

End Sub

MxSonic

پنج شنبه 15 فروردین 1392, 14:25 عصر

سلام
اين از كد خود شما
Option Explicit

Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

Private Sub Command1_Click()

FileCopy App.Path & "\PersianMw\AFC\map.txt", App.Path & "\nrw2\map.txt"

End Sub

اما راه بهتر
از منوي Project گزينه References آيتم Microsot Scripting Runtime رو انتخاب كنيد و بعد كدهاي زير رو بنويسيد
البته شيء Fso كه ايجاد كرديم قابليتهاي بسيار زياد ديگه اي هم داره
Option Explicit

Private Sub Command1_Click()

Dim fso As New FileSystemObject

fso.CopyFile App.Path & "\PersianMw\AFC\map.txt", App.Path & "\nrw2\map.txt", True

End Sub

ممنون داداش
این کد صحیحه ولی کپی نمیکنه
یعنی من میخوام فایل مپ رو از داخل پوشه ی
PersianMw\AFC
کپی کنم به پوشه ی nrw2
پوشه ی پرشیان ام وی و ان ار وی 2 در محل اجرای برنامه هستند
ولی برنامه کپی نمیکنه:افسرده:

vbhamed

پنج شنبه 15 فروردین 1392, 14:50 عصر

سلام

محل اجراي برنامه ريشه درايو هست مثلا \:C يا خود برنامه هم داخل پوشه هست ؟

MxSonic

پنج شنبه 15 فروردین 1392, 21:34 عصر

سلام

محل اجراي برنامه ريشه درايو هست مثلا \:C يا خود برنامه هم داخل پوشه هست ؟

خود برنامه هم داخل پوشه هست
این آدرس دقیق پوشه ای هست که برنامه توشه:
F:\Tools

vbhamed

جمعه 16 فروردین 1392, 07:52 صبح

سلام

اين دستورات كه مشكلي ندارن، پروژتون رو بزاريد تا بررسي بشه
ضمنا ممكنه فايلتون توسط برنامه اي ديگه در حال استفاده و قفل باشه كه كپي نشده
ببينيد با كپي معمولي ويندوز ميشه كپي كرد ؟

amin32

جمعه 16 فروردین 1392, 08:17 صبح

خود برنامه هم داخل پوشه هست
این آدرس دقیق پوشه ای هست که برنامه توشه:
F:\Tools

چون ظاهرا کد درست هست, برای اطمینان یکبار از برنامه, فایل Exe درست کنید ( در کنار پروژه و پوشه های مربوطه ) و برنامه رو در حالت Run as Administrator اجرا کنید.

MxSonic

جمعه 16 فروردین 1392, 22:46 عصر

ممنون از همه ی دوستان
خیـــــــــلی دوستون دارم
درست شد
مشکل نام کایدی بود که واسه کپی کردن ساخته بودم:بوس: