Programsal olarak FileCopy ifade içeren bir dosyayı Visual Basic for Applications kopyaladığınızda, aşağıdaki hata iletisini alabilirsiniz:
Çalışma zamanı hatası '70'
İzin Verilmedi
Bu makalede, Visual Basic for Applications ve programlama Microsoft Access ile sağlanan araçları kullanarak Microsoft Access uygulamaları oluşturma bildiğinizi varsayar. Hakkında daha fazla bilgi için Visual Basic for Applications "Building uygulamaları ile Microsoft Access" el ile sürümü için bkz.
FileCopy deyimi kullanmak yerine, programlı olarak dosya kopyalamak için aşağıdaki yöntemlerden birini kullanın.
UYARı: Açık bir dosyayı kopyalamak, aşağıdaki işlevleri sağlar. Kopyalama işlemi sürecinde, kaynak dosya değiştirildiğinde, hedef dosya eksik olabilir veya bozulabilir.
Program aracılığıyla dosya kopyalamak için bir Microsoft Windows API ' CopyFile() işlevini çağırmak için yöntemidir. Microsoft Windows API ' CopyFile() işlevini çağırmak için aşağıdaki adımları izleyin:
Bu makalenin ilerisindeki adımları 1 ile 4 "Adımlar için oluşturma davranışı" bölümünü tamamlayın.
Bir modül oluşturun ve tanımlamalar aşağıdaki satırları yazın bölümü:
Option Explicit
Declare Function apiCopyFile Lib "kernel32" Alias "CopyFileA" _
(ByVal lpExistingFileName As String, _
ByVal lpNewFileName As String, _
ByVal bFailIfExists As Long) As Long
Aşağıdaki yordam yazın:
Sub CopyFile(SourceFile As String, DestFile As String)
'---------------------------------------------------------------
' PURPOSE: Copy a file on disk from one location to another.
' ACCEPTS: The name of the source file and destination file.
' RETURNS: Nothing
'---------------------------------------------------------------
Dim Result As Long
If Dir(SourceFile) = "" Then
MsgBox Chr(34) & SourceFile & Chr(34) & _
" is not valid file name."
Else
Result = apiCopyFile(SourceFile, DestFile, False)
End If
End Sub
Bu yordam sınamak için <a0></a0>, hata ayıklama penceresinde aşağıdaki satırı yazın ve ENTER tuşuna basın:
CopyFile "< yolu Northwind.mdb >", "C:\Northwind.mdb"
Bunu Microsoft Access'in başka bir kopyası şu anda açık olmasına karşın, Northwind.mdb, C sürücüsünün kök klasöre kopyalanır unutmayın.
Program aracılığıyla dosya kopyalamak için başka bir MS-DOS COPY komutunu Shell() işlev Visual Basic for Applications çağırmak için yöntemidir. MS-DOS COPY komutunu aramak için aşağıdaki adımları izleyin:
Bu makalenin ilerisindeki adımları 1 ile 4 "Adımlar için oluşturma davranışı" bölümünü tamamlayın.
Bir modül oluşturun ve henüz yoksa Tanımlamalar bölümüne aşağıdaki satırı yazın:
Option Explicit
Aşağıdaki yordam Microsoft Windows 95 kullanıyorsanız, aşağıdakileri yazın:
Sub CopyFile(SourceFile As String, DestFile As String)
'---------------------------------------------------------------
' PURPOSE: Copy a file on disk from one location to another.
' ACCEPTS: The name of the source file and destination file.
' RETURNS: Nothing
'---------------------------------------------------------------
Dim CopyString As String
If Dir(SourceFile) = "" Then
MsgBox Chr(34) & SourceFile & Chr(34) & _
" is not a valid file name."
Else
SourceFile = Chr(34) & SourceFile & Chr(34)
DestFile = Chr(34) & DestFile & Chr(34)
CopyString = "COMMAND.COM /C COPY " & SourceFile & _
" " & DestFile
Call Shell(CopyString, 0)
End If
End Sub
If you are using Microsoft Windows NT, use the same procedure, but
change the line
CopyString = "COMMAND.COM /C COPY " & SourceFile & _
to:
CopyString = "CMD.EXE /C COPY " & SourceFile & _
Bu yordam sınamak için <a0></a0>, hata ayıklama penceresinde aşağıdaki satırı yazın ve ENTER tuşuna basın:
CopyFile "< yolu Northwind.mdb >", "C:\Northwind.mdb"
Bunu Microsoft Access'in başka bir kopyası şu anda açık olmasına karşın, Northwind.mdb, C sürücüsünün kök klasöre kopyalanır unutmayın.
ÖNEMLİ: Bu makale, bir kişi tarafından çevrilmek yerine, Microsoft makine-çevirisi yazılımı ile çevrilmiştir. Microsoft size hem kişiler tarafından çevrilmiş, hem de makine-çevrisi ile çevrilmiş makaleler sunar. Böylelikle, bilgi bankamızdaki tüm makalelere, kendi dilinizde ulaşmış olursunuz. Bununla birlikte, makine tarafından çevrilmiş makaleler mükemmel değildir. Bir yabancının sizin dilinizde konuşurken yapabileceği hatalar gibi, makale; kelime dağarcığı, söz dizim kuralları veya dil bilgisi açısından yanlışlar içerebilir. Microsoft, içeriğin yanlış çevrimi veya onun müşteri tarafından kullanımından doğan; kusur, hata veya zarardan sorumlu değildir. Microsoft ayrıca makine çevirisi yazılımını sıkça güncellemektedir.
Makalenin İngilizcesi aşağıdaki gibidir:172711
(http://support.microsoft.com/kb/172711/en-us/
)
Bu makale, Microsoft'un artık destek sağlamadığı ürünler ile ilgili olarak yazılmıştır. Bu nedenle, bu makale "olduğu gibi" sağlanmıştır ve bundan sonra güncelleştirilmeyecektir.
Bu makaleyi kullanmak için ne kadar kişisel çaba harcadınız?
Çok az
Az
Orta
Fazla
Çok fazla
Bu bilgiyi geliştirmemiz için nedenleri ve bu konuda neler yapabileceğimizi paylaşın
Teşekkürler! Görüşleriniz, destek içeriğimizi geliştirmemize yardımcı olmak için kullanılmaktadır. Diğer yardım seçenekleri için, lütfen Yardım ve Destek Giriş Sayfasını ziyaret edin.